projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
50658a0
)
try a different strategy
author
minima
<minima>
Thu, 16 Nov 2000 16:35:24 +0000
(16:35 +0000)
committer
minima
<minima>
Thu, 16 Nov 2000 16:35:24 +0000
(16:35 +0000)
perl/cluster.pl
patch
|
blob
|
history
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index eabc56e62dc1737437a2c27ba2d520fe8e15592f..1e850c90f8b9c74a030a1cab913f770d4d86f218 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-239,11
+239,12
@@
sub cease
# the reaper of children
sub reap
{
# the reaper of children
sub reap
{
- $SIG{'CHLD'} = \&reap;
my $cpid;
my $cpid;
- while (($cpid = waitpid(1, &WNOHANG) != -1)) {
+ while (($cpid = waitpid(1, &WNOHANG)) != -1) {
+ dbg('reap', "cpid: $cpid");
@outstanding_connects = grep {$_->{pid} != $cpid} @outstanding_connects;
}
@outstanding_connects = grep {$_->{pid} != $cpid} @outstanding_connects;
}
+ dbg('reap', "cpid: $cpid");
}
# this is where the input queue is dealt with and things are dispatched off to other parts of
}
# this is where the input queue is dealt with and things are dispatched off to other parts of