No subject

Note that on some systems, a return value of "-1" could mean that child processes are being automatically reaped.  See perlipc for details, and for other examples.




Modified: branches/rel_1_2/bin/opensrf-perl.pl.in
===================================================================
--- branches/rel_1_2/bin/opensrf-perl.pl.in	2009-12-02 22:42:36 UTC (rev 1865)
+++ branches/rel_1_2/bin/opensrf-perl.pl.in	2009-12-02 22:43:51 UTC (rev 1866)
@@ -121,6 +121,7 @@
         launch_listener($service);
         $0 = "OpenSRF controller [$service]";
         while(my $pid = waitpid(-1, 0)) {
+            last if $pid == -1;
             $logger->debug("Cleaning up Perl $service process $pid");
         }
     }