Upgrade to Attribute::Handlers 0.70.

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

diff --git a/t/lib/posix.t b/t/lib/posix.t
index d38e7ef..7c91eba 100755 (executable)
--- a/t/lib/posix.t
+++ b/t/lib/posix.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    @INC = '../lib';
     require Config; import Config;
     if ($^O ne 'VMS' and $Config{'extensions'} !~ /\bPOSIX\b/) {
        print "1..0\n";
@@ -80,7 +80,7 @@ if ($Config{d_strtod}) {
     $lc = &POSIX::setlocale(&POSIX::LC_NUMERIC, 'C') if $Config{d_setlocale};
     ($n, $x) = &POSIX::strtod('3.14159_OR_SO');
 # Using long double NVs may introduce greater accuracy than wanted.
-    $n =~ s/^3.14158999\d*$/3.14159/
+    $n =~ s/^3.1415(8999|9000)\d*$/3.14159/
         if $Config{uselongdouble} eq 'define';
     print (($n == 3.14159) && ($x == 6) ? "ok 14\n" : "not ok 14\n");
     &POSIX::setlocale(&POSIX::LC_NUMERIC, $lc) if $Config{d_setlocale};