[Bps-public-commit] r9754 - in Test-HTTP-Server-Simple: .

[alexmv at bestpractical.com]

Author: alexmv
Date: Wed Nov 28 14:51:39 2007
New Revision: 9754

Modified:
   Test-HTTP-Server-Simple/   (props changed)
   Test-HTTP-Server-Simple/lib/Test/HTTP/Server/Simple.pm

Log:
 r25180 at zoq-fot-pik:  chmrr | 2007-11-28 14:48:51 -0500
  * Don't assume that all of the child PIDs havn't been reaped.  In
 particular, the END block gets run for the children, as well (!), but
 only the parent has people to wait() for.


Modified: Test-HTTP-Server-Simple/lib/Test/HTTP/Server/Simple.pm
==============================================================================
--- Test-HTTP-Server-Simple/lib/Test/HTTP/Server/Simple.pm	(original)
+++ Test-HTTP-Server-Simple/lib/Test/HTTP/Server/Simple.pm	Wed Nov 28 14:51:39 2007
@@ -83,7 +83,7 @@
     }
     else {
         kill 'USR1', @CHILD_PIDS if @CHILD_PIDS;
-        wait for @CHILD_PIDS;
+        1 while $_ = wait and $_ > 0;
     }
 }