Replace Renew(SvPVX(...)...) with SvPV_renew, which avoids an LVALUE

SvPVX

p4raw-id: //depot/perl@24244

1 files changed, 3 insertions, 3 deletions

diff --git a/toke.c b/toke.c
index a4898a2125..55180788bf 100644
--- a/toke.c
+++ b/toke.c
@@ -1826,7 +1826,7 @@ S_scan_const(pTHX_ char *start)
     /* shrink the sv if we allocated more than we used */
     if (SvCUR(sv) + 5 < SvLEN(sv)) {
 	SvLEN_set(sv, SvCUR(sv) + 1);
-	Renew(SvPVX(sv), SvLEN(sv), char);
+	SvPV_renew(sv, SvLEN(sv));
     }
 
     /* return the substring (via yylval) only if we parsed anything */
@@ -9604,7 +9604,7 @@ retval:
     PL_multi_end = CopLINE(PL_curcop);
     if (SvCUR(tmpstr) + 5 < SvLEN(tmpstr)) {
 	SvLEN_set(tmpstr, SvCUR(tmpstr) + 1);
-	Renew(SvPVX(tmpstr), SvLEN(tmpstr), char);
+	SvPV_renew(tmpstr, SvLEN(tmpstr));
     }
     SvREFCNT_dec(herewas);
     if (!IN_BYTES) {
@@ -10080,7 +10080,7 @@ S_scan_str(pTHX_ char *start, int keep_quoted, int keep_delims)
     /* if we allocated too much space, give some back */
     if (SvCUR(sv) + 5 < SvLEN(sv)) {
 	SvLEN_set(sv, SvCUR(sv) + 1);
-	Renew(SvPVX(sv), SvLEN(sv), char);
+	SvPV_renew(sv, SvLEN(sv));
     }
 
     /* decide whether this is the first or second quoted string we've read