From a954f6ee3112c0edfbc59783d1b424d995122784 Mon Sep 17 00:00:00 2001 From: Marcus Holland-Moritz Date: Sat, 18 Oct 2008 18:04:40 +0000 Subject: [PATCH] Fix memory leak in qr// operator. This was most probably introduced with #30849. p4raw-id: //depot/perl@34506 --- pp_hot.c | 1 + 1 file changed, 1 insertion(+) diff --git a/pp_hot.c b/pp_hot.c index c3d1565..fa6ab0c 100644 --- 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); } -- 2.7.4