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 (file)
--- 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;