toke.c: Use SvPV_shrink_to_cur

khwilliamson · khwilliamson · commit 0e72d900876f · 2020-08-22T20:55:35.000-06:00
which is what it is doing, instead of the more general SvPV_renew.
diff --git a/toke.c b/toke.c
@@ -11340,7 +11340,7 @@ Perl_scan_str(pTHX_ char *start, int keep_bracketed_quoted, int keep_delims, int
     /* if we allocated too much space, give some back */
     if (SvCUR(sv) + 5 < SvLEN(sv)) {
 	SvLEN_set(sv, SvCUR(sv) + 1);
-	SvPV_renew(sv, SvLEN(sv));
+	SvPV_shrink_to_cur(sv);
     }
 
     /* decide whether this is the first or second quoted string we've read

Original file line number	Diff line number	Diff line change
`@@ -11340,7 +11340,7 @@ Perl_scan_str(pTHX_ char *start, int keep_bracketed_quoted, int keep_delims, int`
`11340`	`11340`	`/* if we allocated too much space, give some back */`
`11341`	`11341`	`if (SvCUR(sv) + 5 < SvLEN(sv)) {`
`11342`	`11342`	`SvLEN_set(sv, SvCUR(sv) + 1);`
`11343`		`- SvPV_renew(sv, SvLEN(sv));`
	`11343`	`+ SvPV_shrink_to_cur(sv);`
`11344`	`11344`	`}`
`11345`	`11345`
`11346`	`11346`	`/* decide whether this is the first or second quoted string we've read`