diff options
author | Karl Williamson <khw@cpan.org> | 2023-01-12 18:45:44 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2023-01-12 19:03:25 -0700 |
commit | 52bccf632810b58fa7086ef36a1a71d732c5549c (patch) | |
tree | efc8c79f814853fcd4691e70e0347a78adb2544c /regcomp_internal.h | |
parent | 94e919c3f7ce3a89aefc27850b210a9769c65681 (diff) | |
download | perl-52bccf632810b58fa7086ef36a1a71d732c5549c.tar.gz |
regcomp_internal.h: Fix leak in regex tests
Commit fe5492d916201ce31a107839a36bcb1435fe7bf0 introduced leaks when a
regex compilation fails. This commit uses the standard method we have
to deal with these kinds of things.
Diffstat (limited to 'regcomp_internal.h')
-rw-r--r-- | regcomp_internal.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/regcomp_internal.h b/regcomp_internal.h index a895452511..54c4b69758 100644 --- a/regcomp_internal.h +++ b/regcomp_internal.h @@ -864,6 +864,10 @@ static const scan_data_t zero_scan_data = { SAVEFREEPV(RExC_open_parens); \ if (RExC_close_parens) \ SAVEFREEPV(RExC_close_parens); \ + if (RExC_logical_to_parno) \ + SAVEFREEPV(RExC_logical_to_parno); \ + if (RExC_parno_to_logical) \ + SAVEFREEPV(RExC_parno_to_logical); \ } STMT_END /* |