In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/05a03c0da6f3694904885fa1629a6e35e75d2875?hp=e99ccafab27dc0d084a8c16ed5a07fe8f4cc87ce>
- Log ----------------------------------------------------------------- commit 05a03c0da6f3694904885fa1629a6e35e75d2875 Author: Tony Cook <[email protected]> Date: Mon Sep 2 15:35:36 2019 +1000 (perl #134390) don't leak the SV we just created on an early return ----------------------------------------------------------------------- Summary of changes: regexec.c | 1 + 1 file changed, 1 insertion(+) diff --git a/regexec.c b/regexec.c index c390bff72e..97ea458a20 100644 --- a/regexec.c +++ b/regexec.c @@ -10405,6 +10405,7 @@ S_to_byte_substr(pTHX_ regexp *prog) && !prog->substrs->data[i].substr) { SV* sv = newSVsv(prog->substrs->data[i].utf8_substr); if (! sv_utf8_downgrade(sv, TRUE)) { + SvREFCNT_dec_NN(sv); return FALSE; } if (SvVALID(prog->substrs->data[i].utf8_substr)) { -- Perl5 Master Repository
