Change 33632 by [EMAIL PROTECTED] on 2008/04/02 21:03:33
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.
Affected files ...
... //depot/perl/sv.c#1535 edit
Differences ...
==== //depot/perl/sv.c#1535 (text) ====
Index: perl/sv.c
--- perl/sv.c#1534~33627~ 2008-04-01 12:59:54.000000000 -0700
+++ perl/sv.c 2008-04-02 14:03:33.000000000 -0700
@@ -1492,7 +1492,7 @@
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) {
End of Patch.
