From: minima Date: Sat, 18 Nov 2000 21:41:45 +0000 (+0000) Subject: make test on waitpid > 0 rather than -1 X-Git-Tag: R_1_45~24 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=3e062e2c8696ad7b1e2a8bd37c2a3c4ad8f460b6;p=spider.git make test on waitpid > 0 rather than -1 --- diff --git a/perl/cluster.pl b/perl/cluster.pl index 3e9a5a11..e8858a0d 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -245,7 +245,7 @@ sub cease sub reap { my $cpid; - while (($cpid = waitpid(-1, WNOHANG)) != -1) { + while (($cpid = waitpid(-1, WNOHANG)) > 0) { dbg('reap', "cpid: $cpid"); @outstanding_connects = grep {$_->{pid} != $cpid} @outstanding_connects; $zombies-- if $zombies > 0;