[ID 20010619.012] Not OK: perl v5.7.1 +DEVEL10721 +devel-10722 on alpha-dec_osf-per...

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

diff --git a/Configure b/Configure
index 1c22563..b6ed6d9 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -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