1 files changed, 2 insertions, 1 deletions
diff --git a/sv.c b/sv.c
index 0fdae01779..827bd962a6 100644
--- 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