perl-current/t/time-hires.t

[p5sagit/p5-mst-13.2.git] / t / lib / time-hires.t

diff --git a/t/lib/time-hires.t b/t/lib/time-hires.t
index cc741e7..db35b95 100644 (file)
--- a/t/lib/time-hires.t
+++ b/t/lib/time-hires.t
@@ -132,7 +132,7 @@ else {
 {
  my $t = time();
  my $tf = Time::HiRes::time();
- ok 14, ($tf >= $t) && (($tf - $t) <= 1),
+ ok 14, (abs($tf - $t) <= 1),
   "time $t differs from Time::HiRes::time $tf";
 }