This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The fudge factor is no more needed. I hope.
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 5 Jun 2001 23:45:05 +0000 (23:45 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 5 Jun 2001 23:45:05 +0000 (23:45 +0000)
p4raw-id: //depot/perl@10446

t/lib/posix.t

index 2f29e0d..33ab944 100755 (executable)
@@ -82,7 +82,7 @@ if ($Config{d_strtod}) {
 # Using long double NVs may introduce greater accuracy than wanted.
     $n =~ s/^3.1415(8999|9000)\d*$/3.14159/
         if $Config{uselongdouble} eq 'define';
-    print ((abs($n - 3.14159) < 0.00001) && ($x == 6) ?
+    print (($n == 3.14159) && ($x == 6) ?
           "ok 14\n" : "not ok 14\n");
     &POSIX::setlocale(&POSIX::LC_NUMERIC, $lc) if $Config{d_setlocale};
 } else { print "# strtod not present\n", "ok 14\n"; }