summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorchromatic <chromatic@wgz.org>2001-08-27 05:17:09 -0600
committerAbhijit Menon-Sen <ams@wiw.org>2001-08-27 16:31:53 +0000
commit2ac1ef3d129ac2446fc0d2ea08ecbbd4bd583ff4 (patch)
tree7b75339008ac4b08df201adcfc7374ef6c0294ad /lib
parent4d1ff10ffec86208b0da135b87c76b89e61c866e (diff)
downloadperl-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
Diffstat (limited to 'lib')
-rw-r--r--lib/Net/Ping.pm2
1 files changed, 1 insertions, 1 deletions
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;