X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/c04d5150e9097138a24534447acb8aec17acab19..37ff21f64e4874443dffceac83ed3f3ba15b4127:/lsocket.pas?ds=sidebyside

diff --git a/lsocket.pas b/lsocket.pas
index a9adbd3..cfa1bd1 100755
--- a/lsocket.pas
+++ b/lsocket.pas
@@ -333,7 +333,10 @@ var
 begin
   if state <> wsclosed then close;
   udp := uppercase(proto) = 'UDP';
-  if udp then socktype := SOCK_DGRAM else socktype := SOCK_STREAM;
+  if udp then begin
+    socktype := SOCK_DGRAM;
+    dgram := true;
+  end else socktype := SOCK_STREAM;
   origaddr := addr;
 
   if addr = '' then begin