The #6929 was too skimpy.

p4raw-id: //depot/perl@6936

diff --git a/sv.c b/sv.c
index 5cdcbf9..0fdae01 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -2212,7 +2212,7 @@ 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 + 1);
+       SvGROW(sv, NV_DIG + 10); /* sign, decimal separator, e+NNNNN, nul */
        s = SvPVX(sv);
        olderrno = errno;       /* some Xenix systems wipe out errno here */
 #ifdef apollo