From 2f3671218f9e35aa2ccad92da0178b84a44df3a2 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Wed, 15 Jul 1998 00:35:02 +0300 Subject: [PATCH] 5.004_74: trig.t: math inaccuracy fudge for unicos Message-Id: <199807141835.VAA09030@alpha.hut.fi> p4raw-id: //depot/perl@1499 --- t/lib/trig.t | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/t/lib/trig.t b/t/lib/trig.t index 0914711..3114176 100755 --- a/t/lib/trig.t +++ b/t/lib/trig.t @@ -21,6 +21,10 @@ use vars qw($x $y $z); my $eps = 1e-11; +if ($^O eq 'unicos') { # See lib/Math/Complex.pm and t/lib/complex.t. + $eps = 1e-10; +} + sub near ($$;$) { abs($_[0] - $_[1]) < (defined $_[2] ? $_[2] : $eps); } -- 1.8.3.1