From: Spider Boardman <spider@orb.nashua.nh.us>
Date: Tue, 19 Jun 2001 19:15:40 +0000 (-0400)
Subject: [ID 20010619.012] Not OK: perl v5.7.1 +DEVEL10721 +devel-10722 on alpha-dec_osf-per... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8e2a5ede8b376b26ad9633ee3274d204dafa4c50;p=p5sagit%2Fp5-mst-13.2.git

[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
---

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