Change 11762 by sky@sky-borderline on 2001/08/27 19:19:17
Changed back Net/Ping.pm change #11759 since WNOHANG wasn't
avaible at compile time. This broke the compilation of
Net/Ping.pm
Affected files ...
... //depot/perl/lib/Net/Ping.pm#18 edit
Differences ...
==== //depot/perl/lib/Net/Ping.pm#18 (text) ====
Index: perl/lib/Net/Ping.pm
--- perl/lib/Net/Ping.pm.~1~ Mon Aug 27 13:30:05 2001
+++ perl/lib/Net/Ping.pm Mon Aug 27 13:30:05 2001
@@ -353,7 +353,7 @@
# 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;
End of Patch.
