Fix memory leak in qr// operator. This was most probably

introduced with #30849.

p4raw-id: //depot/perl@34506

diff --git a/pp_hot.c b/pp_hot.c
index c3d1565..fa6ab0c 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1212,6 +1212,7 @@ PP(pp_qr)
 
     if (pkg) {
        HV* const stash = gv_stashpv(SvPV_nolen(pkg), GV_ADD);
+       SvREFCNT_dec(pkg);
        (void)sv_bless(rv, stash);
     }