From 3e062e2c8696ad7b1e2a8bd37c2a3c4ad8f460b6 Mon Sep 17 00:00:00 2001 From: minima Date: Sat, 18 Nov 2000 21:41:45 +0000 Subject: [PATCH] make test on waitpid > 0 rather than -1 --- perl/cluster.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 2.43.0