From 6cf89afa34f7978c2a9aa74aacf9a7b22c527281 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 5 Sep 2001 23:26:23 +0000
Subject: [PATCH] In UNICOS division is really lossy, better use a tolerance
 test.

p4raw-id: //depot/perl@11901
---
 ext/Time/HiRes/HiRes.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ext/Time/HiRes/HiRes.t b/ext/Time/HiRes/HiRes.t
index be462e6..feeb5cf 100644
--- a/ext/Time/HiRes/HiRes.t
+++ b/ext/Time/HiRes/HiRes.t
@@ -86,7 +86,7 @@ else {
 # Two-arg tv_interval() is always available.
 {
     my $f = tv_interval [5, 100_000], [10, 500_000];
-    ok 9, $f == 5.4, $f;
+    ok 9, abs($f - 5.4) < 0.001, $f;
 }
 
 if (!$have_gettimeofday) {
-- 
2.7.4