diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-22 09:44:07 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-22 09:44:07 +0000 |
| commit | 1450d0701497dd4642a74925571472b56356c156 (patch) | |
| tree | b3afd940f60f24740f9a2c620f4b1ae1c35ba8c7 | |
| parent | f83d2536257d3a72eef5f8d789c0784171782b42 (diff) | |
| download | perl-1450d0701497dd4642a74925571472b56356c156.tar.gz | |
perlipc bug (spotted by Ben Low)
p4raw-id: //depot/perl@5194
| -rw-r--r-- | pod/perlipc.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlipc.pod b/pod/perlipc.pod index 3034197e14..3649e4f883 100644 --- a/pod/perlipc.pod +++ b/pod/perlipc.pod @@ -126,7 +126,7 @@ or even the more elaborate: use POSIX ":sys_wait_h"; sub REAPER { my $child; - while ($child = waitpid(-1,WNOHANG)) { + while (($child = waitpid(-1,WNOHANG)) > 0) { $Kid_Status{$child} = $?; } $SIG{CHLD} = \&REAPER; # still loathe sysV |