diff options
| author | chromatic <chromatic@wgz.org> | 2001-08-27 05:17:09 -0600 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-08-27 16:31:53 +0000 |
| commit | 2ac1ef3d129ac2446fc0d2ea08ecbbd4bd583ff4 (patch) | |
| tree | 7b75339008ac4b08df201adcfc7374ef6c0294ad | |
| parent | 4d1ff10ffec86208b0da135b87c76b89e61c866e (diff) | |
| download | perl-2ac1ef3d129ac2446fc0d2ea08ecbbd4bd583ff4.tar.gz | |
pod/perlfunc.pod, lib/Net/Ping.pm, ext/POSIX/POSIX.pod
Message-Id: <20010827172111.89491.qmail@onion.perl.org>
p4raw-id: //depot/perl@11759
| -rw-r--r-- | ext/POSIX/POSIX.pod | 2 | ||||
| -rw-r--r-- | lib/Net/Ping.pm | 2 | ||||
| -rw-r--r-- | 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. |