From: John Peacock <jpeacock@rowman.com>
Date: Fri, 11 May 2001 14:09:41 +0000 (-0400)
Subject: perl-current/t/time-hires.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6119b5d3eb13acf0c1d8ca5a1242fa7a3750a4cf;hp=bf91b999b25fa75a3ef7a327742929592a2e7e9c;p=p5sagit%2Fp5-mst-13.2.git

perl-current/t/time-hires.t
Message-ID: <3AFC2AE5.5E787E54@rowman.com>

p4raw-id: //depot/perl@10118
---

diff --git a/t/lib/time-hires.t b/t/lib/time-hires.t
index cc741e7..db35b95 100644
--- 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";
 }