From 9fd42072b1947c42c95f243fb6e7da4bdf17f182 Mon Sep 17 00:00:00 2001
From: John Peacock <jpeacock@rowman.com>
Date: Wed, 24 Oct 2001 12:53:29 -0400
Subject: [PATCH] - was RE: [PATCH perl@12443] VMS64-bitconfigure Message-ID:
 <3BD72A49.1508D152@rowman.com>

p4raw-id: //depot/perl@12630
---
 configure.com | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/configure.com b/configure.com
index 04144ad..cb4654a 100644
--- a/configure.com
+++ b/configure.com
@@ -4990,7 +4990,13 @@ $ WC "cpplast='" + cpplast + "'"
 $ WC "cppminus='" + cppminus + "'"
 $ WC "cpprun='" + cpprun + "'"
 $ WC "cppstdin='" + cppstdin + "'"
-$ WC "d_Gconvert='my_gconvert(x,n,t,b)'"
+$ IF use64bitint .OR. use64bitint .EQS. "define"
+$ THEN
+$!  gcvt() does not work for > 16 decimal places; fallback to sprintf
+$   WC "d_Gconvert='sprintf((b),""%.*" + (nvgformat-"""") + ",(n),(x))'"
+$ ELSE
+$   WC "d_Gconvert='my_gconvert(x,n,t,b)'"
+$ ENDIF
 $ WC "d_PRIEldbl='" + d_PRIEUldbl + "'"
 $ WC "d_PRIFldbl='" + d_PRIFUldbl + "'"
 $ WC "d_PRIGldbl='" + d_PRIGUldbl + "'"
-- 
1.8.3.1