From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 2 Apr 2008 21:03:33 +0000 (+0000)
Subject: In Perl_sv_grow(), no need to do PERL_STRLEN_ROUNDUP() if we have
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aedff202e428171aca34f30e105f7d4462b85de2;p=p5sagit%2Fp5-mst-13.2.git

In Perl_sv_grow(), no need to do PERL_STRLEN_ROUNDUP() if we have
malloc_size() to get the true allocated space, as PERL_STRLEN_ROUNDUP()
might actually bump the request across an allocation size boundary.

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

diff --git a/sv.c b/sv.c
index 03925a4..96ef7c8 100644
--- a/sv.c
+++ b/sv.c
@@ -1492,7 +1492,7 @@ Perl_sv_grow(pTHX_ register SV *const sv, register STRLEN newlen)
 	s = SvPVX_mutable(sv);
 
     if (newlen > SvLEN(sv)) {		/* need more room? */
-#ifndef MYMALLOC
+#ifndef Perl_safesysmalloc_size
 	newlen = PERL_STRLEN_ROUNDUP(newlen);
 #endif
 	if (SvLEN(sv) && s) {