projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
01ba3df
)
make test on waitpid > 0 rather than -1
author
minima
<minima>
Sat, 18 Nov 2000 21:41:45 +0000
(21:41 +0000)
committer
minima
<minima>
Sat, 18 Nov 2000 21:41:45 +0000
(21:41 +0000)
perl/cluster.pl
patch
|
blob
|
history
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;