From 2ac1ef3d129ac2446fc0d2ea08ecbbd4bd583ff4 Mon Sep 17 00:00:00 2001 From: chromatic 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 --- lib/Net/Ping.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib') 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; -- cgit v1.2.1