summaryrefslogtreecommitdiff
path: root/lib/Net/Ping
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Net/Ping')
-rw-r--r--lib/Net/Ping/t/250_ping_hires.t6
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/Net/Ping/t/250_ping_hires.t b/lib/Net/Ping/t/250_ping_hires.t
index 52dae1ba75..91e905fb26 100644
--- a/lib/Net/Ping/t/250_ping_hires.t
+++ b/lib/Net/Ping/t/250_ping_hires.t
@@ -57,5 +57,7 @@ my ($ret, $duration) = $p -> ping("localhost");
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$/;