From 6119b5d3eb13acf0c1d8ca5a1242fa7a3750a4cf Mon Sep 17 00:00:00 2001 From: John Peacock Date: Fri, 11 May 2001 10:09:41 -0400 Subject: [PATCH] perl-current/t/time-hires.t Message-ID: <3AFC2AE5.5E787E54@rowman.com> p4raw-id: //depot/perl@10118 --- t/lib/time-hires.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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"; } -- 2.7.4