regcomp.c: Another memory leak regression

The reference count should be decremented upon freeing.

diff --git a/regcomp.c b/regcomp.c
index a1183d5..d2a60fa 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -5980,6 +5980,7 @@ S_invlist_destroy(pTHX_ HV* const invlist)
        UV *list = INT2PTR(UV *, SvUV(*list_ptr)); /* PERL_POISON needs lvalue */
        Safefree(list);
     }
+    SvREFCNT_dec(invlist);
 }
 
 STATIC void