5.004_74: trig.t: math inaccuracy fudge for unicos

	Message-Id: <199807141835.VAA09030@alpha.hut.fi>

p4raw-id: //depot/perl@1499

diff --git a/t/lib/trig.t b/t/lib/trig.t
index 0914711..3114176 100755 (executable)
--- 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);
 }