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

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 03925a48b8..96ef7c8340 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) {