From aebf2e96af8a10b9f48b95b83b13fb86a40b3a9e Mon Sep 17 00:00:00 2001
From: sg <sg>
Date: Wed, 25 Jun 2003 08:53:51 +0000
Subject: [PATCH] * Inform the server socket object that it runs non-blocking

---
 fcl/net/httpsvlt.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/fcl/net/httpsvlt.pp b/fcl/net/httpsvlt.pp
index b7cae83c57..a89b28b7d4 100644
--- a/fcl/net/httpsvlt.pp
+++ b/fcl/net/httpsvlt.pp
@@ -514,6 +514,7 @@ begin
   DataAvailableNotifyHandle := EventLoop.SetDataAvailableNotify(
     InetServer.Socket, @InetServerDataAvailable, nil);
   InetServer.OnConnect := @InetServerConnect;
+  InetServer.SetNonBlocking;
   InetServer.Listen;
 end;
 
@@ -621,7 +622,10 @@ end.
 
 {
   $Log$
-  Revision 1.1  2002-04-25 19:30:29  sg
+  Revision 1.2  2003-06-25 08:53:51  sg
+  * Inform the server socket object that it runs non-blocking
+
+  Revision 1.1  2002/04/25 19:30:29  sg
   * First version (with exception of the HTTP unit: This is an improved version
     of the old asyncio HTTP unit, now adapted to fpAsync)