Forget about NV_MAX (#6951). Various floating point tweaks,
[perl.git] / sv.c
diff --git a/sv.c b/sv.c
index 0fdae01..827bd96 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -2212,7 +2212,8 @@ Perl_sv_2pv(pTHX_ register SV *sv, STRLEN *lp)
         * --jhi Sep 1999 */
        if (SvTYPE(sv) < SVt_PVNV)
            sv_upgrade(sv, SVt_PVNV);
-       SvGROW(sv, NV_DIG + 10); /* sign, decimal separator, e+NNNNN, nul */
+       /* The +20 is pure guesswork.  Configure test needed. --jhi */ 
+       SvGROW(sv, NV_DIG + 20);
        s = SvPVX(sv);
        olderrno = errno;       /* some Xenix systems wipe out errno here */
 #ifdef apollo