projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
make test on waitpid > 0 rather than -1
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 3e9a5a1152c10f9fd51299136c864def3de44398..e8858a0df531f2e8709e7d865b22bd4f2cfb8cd7 100755
(executable)
--- 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;