Replace SvGROW with sv_grow_fresh in perl.c, pp_sys.c, toke.c

Changed:
 * perl.c - Perl_moreswitches
 * pp_sys.c - pp_sysread
 * toke.c - Perl_scan_str

In each of the above functions, one instance of SvGROW on a new SVt_PV
can be swapped for the more efficient sv_grow_fresh. In two of the
instances, the calls used to create the the SVt_PV have also been
streamlined.

There should not be any functional change as a result of this commit.

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index edc2690934..7abc250a96 100644
--- a/toke.c
+++ b/toke.c
@@ -11488,7 +11488,7 @@ Perl_scan_str(pTHX_ char *start, int keep_bracketed_quoted, int keep_delims, int
     /* create a new SV to hold the contents.  79 is the SV's initial length.
        What a random number. */
     sv = newSV_type(SVt_PVIV);
-    SvGROW(sv, 79);
+    sv_grow_fresh(sv, 79);
     SvIV_set(sv, close_delim_code);
     (void)SvPOK_only(sv);		/* validate pointer */