X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/a83971b64b0b20f6774cf3ccedd05202ad0bdb0e..f0a6e6591b3d306641b78dfed4a4066935e82096:/lserial.pas

diff --git a/lserial.pas b/lserial.pas
index e7b6d27..4f13fce 100755
--- a/lserial.pas
+++ b/lserial.pas
@@ -1,4 +1,4 @@
-{$mode delphi}
+{$mode delphi}
 unit lserial;
 interface
 uses 
@@ -26,7 +26,7 @@ var
   config : termios;
   baudrateos : longint;
 begin
-  fd := fpopen(device,O_RDWR or O_NOCTTY);
+  fd := fpopen(device,O_RDWR or O_NOCTTY or O_NONBLOCK);
   
   if isatty(fd)=0 then begin
     writeln('not a tty');
@@ -68,4 +68,4 @@ begin
   dup(fd);
   closehandles := true;
 end;
-end.
\ No newline at end of file
+end.