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 (file)
--- 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