Change 11276 by jhi@alpha on 2001/07/11 13:18:07
Subject: Re: POSIX test #14 on UTS
From: Hugo van der Sanden <[EMAIL PROTECTED]>
Date: Wed, 11 Jul 2001 03:02:14 +0100
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/POSIX/POSIX.t#6 edit
Differences ...
==== //depot/perl/ext/POSIX/POSIX.t#6 (xtext) ====
Index: perl/ext/POSIX/POSIX.t
--- perl/ext/POSIX/POSIX.t.~1~ Wed Jul 11 07:30:06 2001
+++ perl/ext/POSIX/POSIX.t Wed Jul 11 07:30:06 2001
@@ -86,10 +86,8 @@
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.1415(8999|9000)\d*$/3.14159/
- if $Config{uselongdouble} eq 'define';
- print (($n == 3.14159) && ($x == 6) ?
+# we're just checking that strtod works, not how accurate it is
+ print (("3.14159" eq $n + 0) && ($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.
