diff options
| author | Richard Leach <richardleach@users.noreply.github.com> | 2022-09-09 21:44:07 +0000 |
|---|---|---|
| committer | Richard Leach <richardleach@users.noreply.github.com> | 2022-09-18 23:50:26 +0100 |
| commit | 8af03a11d8197fbbc9700846c4aa5c1baa32b281 (patch) | |
| tree | bf37694842b01440944d0ec95bce3ef0d766645a | |
| parent | 90dc1489e6280a2f7cd39e74f7be2ec9e556cad7 (diff) | |
| download | perl-8af03a11d8197fbbc9700846c4aa5c1baa32b281.tar.gz | |
S_scan_heredoc - use SvPVCLEAR_FRESH on new SV
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -10935,7 +10935,7 @@ S_scan_heredoc(pTHX_ char *s) char *oldoldbufptr_save; streaming: sv_grow_fresh(tmpstr, 80); - SvPVCLEAR(tmpstr); /* avoid "uninitialized" warning */ + SvPVCLEAR_FRESH(tmpstr); /* avoid "uninitialized" warning */ term = PL_tokenbuf[1]; len--; linestr_save = PL_linestr; /* must restore this afterwards */ |