From: Hugo van der Sanden <hv@crypt.org>
Date: Wed, 18 Jul 2001 05:58:46 +0000 (+0100)
Subject: Re: Perl 5.7.2 Has Been Released
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7f82cce936e595de48eff1fbff5cb0f7628d19bf;p=p5sagit%2Fp5-mst-13.2.git

Re: Perl 5.7.2 Has Been Released
Message-Id:  <200107180458.f6I4wlJ19966@crypt0.demon.co.uk>

p4raw-id: //depot/perl@11404
---

diff --git a/ext/POSIX/POSIX.t b/ext/POSIX/POSIX.t
index 2c80924..2c52f26 100755
--- a/ext/POSIX/POSIX.t
+++ b/ext/POSIX/POSIX.t
@@ -87,7 +87,7 @@ if ($Config{d_strtod}) {
     $lc = &POSIX::setlocale(&POSIX::LC_NUMERIC, 'C') if $Config{d_setlocale};
     ($n, $x) = &POSIX::strtod('3.14159_OR_SO');
 # we're just checking that strtod works, not how accurate it is
-    print (("3.14159" eq $n + 0) && ($x == 6) ?
+    print ((abs("3.14159" - $n) < 1e-6) && ($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"; }