From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Sat, 18 Oct 2008 18:04:40 +0000 (+0000)
Subject: Fix memory leak in qr// operator. This was most probably
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a954f6ee3112c0edfbc59783d1b424d995122784;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);
     }