From d764f01a54c0f82174c22184bb83b9dca8be1913 Mon Sep 17 00:00:00 2001
From: Dominic Dunlop <domo@computer.org>
Date: Wed, 16 Aug 2000 00:20:52 +0200
Subject: (Retracted by #6660)

Subject: [PATCH perl-current] make s?printf() produce two exponent digits where possible
Message-Id: <p04320403b5bf4c32d381@[192.168.1.4]>

p4raw-id: //depot/perl@6645
---
 config_h.SH | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'config_h.SH')

diff --git a/config_h.SH b/config_h.SH
index e66e0c5ed0..209c96ff66 100644
--- a/config_h.SH
+++ b/config_h.SH
@@ -3156,6 +3156,13 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
 #define PERL_XS_APIVERSION "$xs_apiversion"
 #define PERL_PM_APIVERSION "$pm_apiversion"
 
+/* PRINTF_EXP_DIGITS:
+ *	This symbol's value is either 2 or 3, corresponding to the
+ *	number of exponent digits produced by the system's sprintf %[FGfg]
+ *	formats when the modulus of the exponent is 99 or less.
+ */
+#define PRINTF_EXP_DIGITS $d_printf_exp_digits
+
 /* I_LIBUTIL:
  *	This symbol, if defined, indicates that <libutil.h> exists and
  *	should be included.
-- 
cgit v1.2.1