* Patch so uninitialized sockets are not closed

git-svn-id: trunk@11673 -

packages/fcl-net/src/ssockets.pp

@@ -42,6 +42,7 @@ type
 
   TSocketStream = class(THandleStream)
   Private
+    FSocketInitialized : Boolean;
     FSocketOptions : TSocketOptions;
     Procedure GetSockOptions;
     Procedure SetSocketOptions(Value : TSocketOptions);
@@ -215,11 +216,13 @@ Constructor TSocketStream.Create (AHandle : Longint);
 
 begin
   Inherited Create(AHandle);
+  FSocketInitialized := true;
   GetSockOptions;
 end;
 
 destructor TSocketStream.Destroy;
 begin
+  if FSocketInitialized then
   {$ifdef netware}
   CloseSocket(Handle);
   {$else}