From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 22 Feb 2000 09:44:07 +0000 (+0000)
Subject: perlipc bug (spotted by Ben Low)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1450d0701497dd4642a74925571472b56356c156;p=p5sagit%2Fp5-mst-13.2.git

perlipc bug (spotted by Ben Low)

p4raw-id: //depot/perl@5194
---

diff --git a/pod/perlipc.pod b/pod/perlipc.pod
index 3034197..3649e4f 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