From: chromatic <chromatic@wgz.org>
Date: Mon, 27 Aug 2001 11:17:09 +0000 (-0600)
Subject: pod/perlfunc.pod, lib/Net/Ping.pm, ext/POSIX/POSIX.pod
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2ac1ef3d129ac2446fc0d2ea08ecbbd4bd583ff4;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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.