support native integers, pack("L_",...) etc. (via private mail)

[p5sagit/p5-mst-13.2.git] / t / lib / trig.t

diff --git a/t/lib/trig.t b/t/lib/trig.t
index 0914711..20669f0 100755 (executable)
--- a/t/lib/trig.t
+++ b/t/lib/trig.t
@@ -10,7 +10,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 
 use Math::Trig;
@@ -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);
 }