summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorMarcus Holland-Moritz <mhx-perl@gmx.net>2008-10-18 18:04:40 +0000
committerMarcus Holland-Moritz <mhx-perl@gmx.net>2008-10-18 18:04:40 +0000
commita954f6ee3112c0edfbc59783d1b424d995122784 (patch)
treed806f09e0901c8f36ef0075dc77404b5c3afd667 /pp_hot.c
parent711690a16d2a16be7070e06779c46a6d8f482689 (diff)
downloadperl-a954f6ee3112c0edfbc59783d1b424d995122784.tar.gz
Fix memory leak in qr// operator. This was most probably
introduced with #30849. p4raw-id: //depot/perl@34506
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/pp_hot.c b/pp_hot.c
index c3d15653de..fa6ab0c453 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);
}