From 2ac1ef3d129ac2446fc0d2ea08ecbbd4bd583ff4 Mon Sep 17 00:00:00 2001
From: chromatic <chromatic@wgz.org>
Date: Mon, 27 Aug 2001 05:17:09 -0600
Subject: pod/perlfunc.pod, lib/Net/Ping.pm, ext/POSIX/POSIX.pod Message-Id:
 <20010827172111.89491.qmail@onion.perl.org>

p4raw-id: //depot/perl@11759
---
 ext/POSIX/POSIX.pod | 2 +-
 lib/Net/Ping.pm     | 2 +-
 pod/perlfunc.pod    | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/ext/POSIX/POSIX.pod b/ext/POSIX/POSIX.pod
index bbd0cbe5af..7094f59087 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 5ab3508a64..e74f6684df 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 951fadab52..68ca8d741c 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.
-- 
cgit v1.2.1