SvPV_renew also calls SvLEN_set

Add SvPV_shrink_to_cur(sv) to call SvPV_renew with SvCUR(sv)+1.
For Ponie this can be a single call into the PMC

p4raw-id: //depot/perl@24245

1 files changed, 2 insertions, 4 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 64c4fecf7f..825a862b24 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1624,8 +1624,7 @@ Perl_do_readline(pTHX)
 	}
 	if (gimme == G_ARRAY) {
 	    if (SvLEN(sv) - SvCUR(sv) > 20) {
-		SvLEN_set(sv, SvCUR(sv)+1);
-		SvPV_renew(sv, SvLEN(sv));
+		SvPV_shrink_to_cur(sv);
 	    }
 	    sv = sv_2mortal(NEWSV(58, 80));
 	    continue;
@@ -1634,8 +1633,7 @@ Perl_do_readline(pTHX)
 	    /* try to reclaim a bit of scalar space (only on 1st alloc) */
 	    const STRLEN new_len
 		= SvCUR(sv) < 60 ? 80 : SvCUR(sv)+40; /* allow some slop */
-	    SvLEN_set(sv, new_len);
-	    SvPV_renew(sv, SvLEN(sv));
+	    SvPV_renew(sv, new_len);
 	}
 	RETURN;
     }