From: Alan Burlison <Alan.Burlison@uk.sun.com>
Date: Wed, 30 Aug 2000 22:39:52 +0000 (+0100)
Subject: Heap decorruption.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8aad8eb3dfb3dbc6b4d3419728cca9a2bc68a6cc;p=p5sagit%2Fp5-mst-13.2.git

Heap decorruption.

Subject: [PATCH] Fix for miniperl coredump on Solaris with -Duselongdouble
Message-ID: <39AD7F28.A06533CF@uk.sun.com>

p4raw-id: //depot/perl@6929
---

diff --git a/sv.c b/sv.c
index 8778192..5cdcbf9 100644
--- a/sv.c
+++ b/sv.c
@@ -2207,12 +2207,12 @@ Perl_sv_2pv(pTHX_ register SV *sv, STRLEN *lp)
     }
     if (SvNOKp(sv)) {			/* See note in sv_2uv() */
 	/* XXXX 64-bit?  IV may have better precision... */
-	/* I tried changing this for to be 64-bit-aware and
+	/* I tried changing this to be 64-bit-aware and
 	 * the t/op/numconvert.t became very, very, angry.
 	 * --jhi Sep 1999 */
 	if (SvTYPE(sv) < SVt_PVNV)
 	    sv_upgrade(sv, SVt_PVNV);
-	SvGROW(sv, 28);
+	SvGROW(sv, NV_DIG + 1);
 	s = SvPVX(sv);
 	olderrno = errno;	/* some Xenix systems wipe out errno here */
 #ifdef apollo