* Fix for bug ID #29144

git-svn-id: trunk@32731 -
2025-12-15 23:10:41 +01:00 · 2015-12-26 17:16:31 +00:00 · 2015-12-26 17:16:31 +00:00 · ed2d21fd97
commit ed2d21fd97
parent 42804c935f
1 changed files with 1 additions and 1 deletions
--- a/packages/fcl-web/src/base/custfcgi.pp
+++ b/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);