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" <[EMAIL PROTECTED]>
Date: Mon, 27 Aug 2001 11:17:09 -0600
Message-Id: <[EMAIL PROTECTED]>
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~ Mon Aug 27 10:45:05 2001
+++ perl/ext/POSIX/POSIX.pod Mon Aug 27 10:45:05 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~ Mon Aug 27 10:45:05 2001
+++ perl/lib/Net/Ping.pm Mon Aug 27 10:45:05 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~ Mon Aug 27 10:45:05 2001
+++ perl/pod/perlfunc.pod Mon Aug 27 10:45:05 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.
