Change 11404 by nick@camel-linux on 2001/07/18 06:43:59
Subject: Re: Perl 5.7.2 Has Been Released
From: [EMAIL PROTECTED]
Date: Wed, 18 Jul 2001 05:58:46 +0100
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/POSIX/POSIX.t#7 edit
Differences ...
==== //depot/perl/ext/POSIX/POSIX.t#7 (xtext) ====
Index: perl/ext/POSIX/POSIX.t
--- perl/ext/POSIX/POSIX.t.~1~ Wed Jul 18 01:00:05 2001
+++ perl/ext/POSIX/POSIX.t Wed Jul 18 01:00:05 2001
@@ -87,7 +87,7 @@
$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"; }
End of Patch.
