From: plugwash <plugwash@p10link.net>
Date: Fri, 23 Jan 2009 18:23:37 +0000 (+0000)
Subject: hopefully fix a connection death bug that was annoying zipplet
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/9777e2483955343fea879378221d10f738f43b40?ds=inline

hopefully fix a connection death bug that was annoying zipplet


git-svn-id: file:///svnroot/lcore/trunk@27 b1de8a11-f9be-4011-bde0-cc7ace90066a
---

diff --git a/lcore.pas b/lcore.pas
index 99e6339..77bf4f0 100755
--- a/lcore.pas
+++ b/lcore.pas
@@ -573,7 +573,16 @@ begin
           internalclose(0);
 
         end else begin
-          internalclose({$ifdef win32}getlasterror{$else}linuxerror{$endif});
+          {$ifdef win32}
+          if getlasterror=WSAEWOULDBLOCK then begin
+            //the asynchronous nature of windows messages means we sometimes
+            //get here with the buffer full
+            //so do nothing in that case
+          end else
+          {$endif}
+          begin
+            internalclose({$ifdef win32}getlasterror{$else}linuxerror{$endif});
+          end  
         end;
       end;