pod/perlfunc.pod, lib/Net/Ping.pm, ext/POSIX/POSIX.pod

Message-Id: <20010827172111.89491.qmail@onion.perl.org>

p4raw-id: //depot/perl@11759

diff --git a/ext/POSIX/POSIX.pod b/ext/POSIX/POSIX.pod
index bbd0cbe..7094f59 100644 (file)
--- a/ext/POSIX/POSIX.pod
+++ b/ext/POSIX/POSIX.pod
@@ -1536,7 +1536,7 @@ see L<perlfunc/wait>.
 Wait for a child process to change state.  This is identical to Perl's
 builtin C<waitpid()> function, see L<perlfunc/waitpid>.
 
-       $pid = POSIX::waitpid( -1, &POSIX::WNOHANG );
+       $pid = POSIX::waitpid( -1, POSIX::WNOHANG );
        print "status = ", ($? / 256), "\n";
 
 =item wcstombs

diff --git a/lib/Net/Ping.pm b/lib/Net/Ping.pm
index 5ab3508..e74f668 100644 (file)
--- a/lib/Net/Ping.pm
+++ b/lib/Net/Ping.pm
@@ -353,7 +353,7 @@ sub ping_tcp_win32
 
        # Wait for the child to return or for the timeout to expire.
        do {
-               $child = waitpid($pid, &WNOHANG);
+               $child = waitpid($pid, WNOHANG);
                $ret = $?;
        } until time > ($time + $timeout) or $child;
 

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 951fada..68ca8d7 100644 (file)
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -5976,7 +5976,7 @@ The status is returned in C<$?>.  If you say
     use POSIX ":sys_wait_h";
     #...
     do {
-       $kid = waitpid(-1,&WNOHANG);
+       $kid = waitpid(-1, WNOHANG);
     } until $kid == -1;
 
 then you can do a non-blocking wait for all pending zombie processes.