From: Artur Bergman <sky@nanisky.com>
Date: Mon, 27 Aug 2001 19:19:17 +0000 (+0000)
Subject: Changed back Net/Ping.pm change #11759 since WNOHANG wasn't
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=13feed241cfbd0344ddfa514a7c9777e784d2b70;p=p5sagit%2Fp5-mst-13.2.git

Changed back Net/Ping.pm change #11759 since WNOHANG wasn't
avaible at compile time. This broke the compilation of
Net/Ping.pm

p4raw-link: @11759 on //depot/perl: 2ac1ef3d129ac2446fc0d2ea08ecbbd4bd583ff4

p4raw-id: //depot/perl@11762
---

diff --git a/lib/Net/Ping.pm b/lib/Net/Ping.pm
index e74f668..dc1d061 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;