Change 20021 by [EMAIL PROTECTED] on 2003/07/06 07:19:17
Reintroduce changes #19723 and #19723 that were not
in Net::Ping 2.31; needed for Windows.
Affected files ...
... //depot/perl/lib/Net/Ping/t/250_ping_hires.t#4 edit
... //depot/perl/lib/Net/Ping/t/450_service.t#8 edit
Differences ...
==== //depot/perl/lib/Net/Ping/t/250_ping_hires.t#4 (text) ====
Index: perl/lib/Net/Ping/t/250_ping_hires.t
--- perl/lib/Net/Ping/t/250_ping_hires.t#3~19988~ Fri Jul 4 06:17:22 2003
+++ perl/lib/Net/Ping/t/250_ping_hires.t Sun Jul 6 00:19:17 2003
@@ -57,5 +57,7 @@
ok $ret;
# It is extremely likely that the duration contains a decimal
-# point if Time::HiRes is functioning properly.
-ok $duration =~ /\./;
+# point if Time::HiRes is functioning properly, except when it
+# it is fast enough to be "zero".
+print "# duration=[$duration]\n";
+ok $duration =~ /\.|^0$/;
==== //depot/perl/lib/Net/Ping/t/450_service.t#8 (text) ====
Index: perl/lib/Net/Ping/t/450_service.t
--- perl/lib/Net/Ping/t/450_service.t#7~19988~ Fri Jul 4 06:17:22 2003
+++ perl/lib/Net/Ping/t/450_service.t Sun Jul 6 00:19:17 2003
@@ -19,7 +19,7 @@
# for the TCP Server stuff instead of doing
# all that direct socket() junk manually.
-plan tests => 26;
+plan tests => 26, ($^O eq 'MSWin32' ? (todo => [18]) : ());
# Everything loaded fine
ok 1;
End of Patch.
