PATCH: [perl #132548] regcomp.c Fix memory leak

1 files changed, 1 insertions, 0 deletions

diff --git a/regcomp.c b/regcomp.c
index 29af44c7a0..83d6699cc9 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -17721,6 +17721,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth,
                 if (_invlist_len(only_non_utf8_list) != 0) {
                     ANYOF_FLAGS(ret) |= ANYOF_SHARED_d_MATCHES_ALL_NON_UTF8_NON_ASCII_non_d_WARN_SUPER;
                 }
+                SvREFCNT_dec_NN(only_non_utf8_list);
             }
             else {
                 /* Here there were no complemented posix classes.  That means