X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/d2948bcc680fb1c36613c8535757fe0ed1faf10f..baf753e54d73673524de916757e66ef8c485bc0d:/lsocket.pas

diff --git a/lsocket.pas b/lsocket.pas
index ffd411f..3b2d918 100755
--- a/lsocket.pas
+++ b/lsocket.pas
@@ -385,7 +385,12 @@ begin
       end else begin
         secondlistener.onsessionAvailable := secondaccepthandler;
       end;
-      secondlistener.listen;
+      try
+        secondlistener.listen;
+      except
+        secondlistener.destroy;
+        secondlistener := nil;
+      end;
     end;
     {$endif}
   finally
@@ -408,7 +413,10 @@ end;
 {$ifdef secondlistener}
 procedure tlsocket.internalclose(error:word);
 begin
-  if assigned(secondlistener) then secondlistener.destroy;
+  if assigned(secondlistener) then begin
+    secondlistener.destroy;
+    secondlistener := nil;
+  end;
   inherited internalclose(error);
 end;