In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/3c239bea80af65ef9ef306b586824cecbad9e09c?hp=2c9f1bc6760f5b07af1340a43a1250ce4a6003a5>
- Log -----------------------------------------------------------------
commit 3c239bea80af65ef9ef306b586824cecbad9e09c
Author: Father Chrysostomos <spr...@cpan.org>
Date: Mon Sep 1 08:23:00 2014 -0700
Revert "sv_grow: performance improvement for short strings"
This reverts commit 880c169bb2bd5e6e9ae996842d6860bf88d28585.
-----------------------------------------------------------------------
Summary of changes:
sv.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/sv.c b/sv.c
index 7d4c964..98836f1 100644
--- a/sv.c
+++ b/sv.c
@@ -1544,7 +1544,7 @@ Perl_sv_grow(pTHX_ SV *const sv, STRLEN newlen)
#ifdef PERL_NEW_COPY_ON_WRITE
/* the new COW scheme uses SvPVX(sv)[SvLEN(sv)-1] (if spare)
- * to store the CowREFCNT. So in general, allocate one more byte than
+ * to store the COW count. So in general, allocate one more byte than
* asked for, to make it likely this byte is always spare: and thus
* make more strings COW-able.
* If the new size is a big power of two, don't bother: we assume the
@@ -1560,7 +1560,7 @@ Perl_sv_grow(pTHX_ SV *const sv, STRLEN newlen)
if (newlen > SvLEN(sv)) { /* need more room? */
STRLEN minlen = SvCUR(sv);
- minlen += (minlen >> PERL_STRLEN_EXPAND_SHIFT) + 2;
+ minlen += (minlen >> PERL_STRLEN_EXPAND_SHIFT) + 10;
if (newlen < minlen)
newlen = minlen;
#ifndef PERL_UNWARANTED_CHUMMINESS_WITH_MALLOC
--
Perl5 Master Repository
