diff options
author | Richard Leach <richardleach@users.noreply.github.com> | 2023-02-10 21:58:29 +0000 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2023-02-11 21:15:13 -0700 |
commit | 09fbd16e8a0e26ef4ac3790a6f67ec8dbdaa8720 (patch) | |
tree | 05374f47c2466af42f7cdedd297463054ab0d7ad /pp.c | |
parent | 8cf9e0b7ee431069f972a1e0a7ecc096a651a275 (diff) | |
download | perl-09fbd16e8a0e26ef4ac3790a6f67ec8dbdaa8720.tar.gz |
S_do_chomp: remove unused svrecode SV
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -738,7 +738,6 @@ S_do_chomp(pTHX_ SV *retval, SV *sv, bool chomping) if (chomping) { if (s && len) { char *temp_buffer = NULL; - SV *svrecode = NULL; s += --len; if (RsPARA(PL_rs)) { if (*s != '\n') @@ -771,7 +770,7 @@ S_do_chomp(pTHX_ SV *retval, SV *sv, bool chomping) is the buffer inside PL_rs, so don't free it. */ assert (temp_buffer == rsptr); - goto nope_free_sv; + goto nope_free_nothing; } rsptr = temp_buffer; } @@ -804,8 +803,6 @@ S_do_chomp(pTHX_ SV *retval, SV *sv, bool chomping) nope_free_all: Safefree(temp_buffer); - nope_free_sv: - SvREFCNT_dec(svrecode); nope_free_nothing: ; } } else { |