diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2001-06-19 15:15:40 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-19 23:04:15 +0000 |
| commit | 8e2a5ede8b376b26ad9633ee3274d204dafa4c50 (patch) | |
| tree | 2453c5257e36bfb88f8d3ae926257b00c5dda4f8 /Configure | |
| parent | cd4070af8ee9c4d35bae92e09b8a2c42181b36d4 (diff) | |
| download | perl-8e2a5ede8b376b26ad9633ee3274d204dafa4c50.tar.gz | |
[ID 20010619.012] Not OK: perl v5.7.1 +DEVEL10721 +devel-10722 on alpha-dec_osf-per lio 4.0f (UNINSTALLED)
Message-Id: <200106192315.TAA18531@Orb.Nashua.NH.US>
The bigintpm.t #1183 failing in Tru64 (and also Cygwin)
because "1e+129" being expected but "1.e+129" being returned.
The culprit (at least in Tru64) is the use of gcvt().
p4raw-id: //depot/perl@10738
Diffstat (limited to 'Configure')
| -rwxr-xr-x | Configure | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -20,7 +20,7 @@ # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $ # -# Generated on Tue Jun 19 23:54:48 EET DST 2001 [metaconfig 3.0 PL70] +# Generated on Wed Jun 20 02:24:20 EET DST 2001 [metaconfig 3.0 PL70] # (with additional metaconfig patches by perlbug@perl.org) cat >c1$$ <<EOF @@ -8448,6 +8448,13 @@ int main() Gconvert((DOUBLETYPE)123.456, 8, 0, buf); checkit("123.456", buf); + /* Testing of 1e+129 in bigintpm.t must not get extra '.' here. */ + Gconvert((DOUBLETYPE)1e30, 8, 0, buf); + if (strlen(buf) > 5) + checkit("1e+030", buf); /* for Microsoft */ + else + checkit("1e+30", buf); + exit(0); } EOP |