* Terminate when socket cannot be created/bound/accepted.

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@17056 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 0 deletions

diff --git a/packages/fcl-web/src/base/custfcgi.pp b/packages/fcl-web/src/base/custfcgi.pp
index 65660994fd..1b0f2634b2 100644
--- a/packages/fcl-web/src/base/custfcgi.pp
+++ b/packages/fcl-web/src/base/custfcgi.pp
@@ -547,12 +547,14 @@ begin
         begin
         CloseSocket(socket);
         Socket:=0;
+        Terminate;
         raise Exception.CreateFmt(SBindFailed,[port,socketerror]);
         end;
       if fplisten(Socket,1)=-1 then
         begin
         CloseSocket(socket);
         Socket:=0;
+        Terminate;
         raise Exception.CreateFmt(SListenFailed,[port,socketerror]);
         end;
       end
@@ -564,7 +566,10 @@ begin
     begin
     FHandle:=fpaccept(Socket,psockaddr(@IAddress),@AddressLength);
     if FHandle=THandle(-1) then
+      begin
+      Terminate;
       raise Exception.CreateFmt(SNoInputHandle,[socketerror]);
+      end;
     end;
 
   repeat