[perl #39639] perldoc -f waitpid has wrong code example

From: Alexander_Gernler@genua.de (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-39639-135396.19.0765391798804@perl.org>

p4raw-id: //depot/perl@28444

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index f771749..26907b9 100644 (file)
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -7152,7 +7152,7 @@ The status is returned in C<$?> and C<{^CHILD_ERROR_NATIVE}>.  If you say
     #...
     do {
        $kid = waitpid(-1, WNOHANG);
-    } until $kid > 0;
+    } while $kid > 0;
 
 then you can do a non-blocking wait for all pending zombie processes.
 Non-blocking wait is available on machines supporting either the