Change 11759 by ams@ams-lustre on 2001/08/27 16:31:53

	Subject: [PATCH] pod/perlfunc.pod, lib/Net/Ping.pm, ext/POSIX/POSIX.pod
	From: "chromatic" <chromatic@rmci.net>
	Date: Mon, 27 Aug 2001 11:17:09 -0600
	Message-Id: <20010827172111.89491.qmail@onion.perl.org>

Affected files ...

... //depot/perl/ext/POSIX/POSIX.pod#23 edit
... //depot/perl/lib/Net/Ping.pm#17 edit
... //depot/perl/pod/perlfunc.pod#255 edit

Differences ...

==== //depot/perl/ext/POSIX/POSIX.pod#23 (text) ====
Index: perl/ext/POSIX/POSIX.pod
--- perl/ext/POSIX/POSIX.pod.~1~	Thu Nov 22 14:37:21 2001
+++ perl/ext/POSIX/POSIX.pod	Thu Nov 22 14:37:21 2001
@@ -1536,7 +1536,7 @@
 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

==== //depot/perl/lib/Net/Ping.pm#17 (text) ====
Index: perl/lib/Net/Ping.pm
--- perl/lib/Net/Ping.pm.~1~	Thu Nov 22 14:37:21 2001
+++ perl/lib/Net/Ping.pm	Thu Nov 22 14:37:21 2001
@@ -353,7 +353,7 @@
 
 	# 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;
 

==== //depot/perl/pod/perlfunc.pod#255 (text) ====
Index: perl/pod/perlfunc.pod
--- perl/pod/perlfunc.pod.~1~	Thu Nov 22 14:37:21 2001
+++ perl/pod/perlfunc.pod	Thu Nov 22 14:37:21 2001
@@ -5976,7 +5976,7 @@
     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.
End of Patch.
