Explorar el Código

* Fix for bug ID #29144

git-svn-id: trunk@32731 -
michael hace 9 años
padre
commit
ed2d21fd97
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  1. 1 1
      packages/fcl-web/src/base/custfcgi.pp

+ 1 - 1
packages/fcl-web/src/base/custfcgi.pp

@@ -906,7 +906,7 @@ begin
 {$else windowspipe}
   if Not fIsWinPipe then
     Result:=fpaccept(Socket,Nil,Nil);
-  If FIsWinPipe or ((Result<0) and (socketerror=10038)) then
+  If FIsWinPipe or ((Result<0) and ((socketerror=10038) or (socketerror = 10022))) then
     begin
     Result:=-1;
     B:=ConnectNamedPipe(Socket,Nil);