blob: 675b07b78e2a33546b0ae3d10b1c84f893beaacc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
$NetBSD: patch-ri,v 1.1 2008/10/21 22:46:49 rillig Exp $
http://rt.perl.org/rt3/Public/Bug/Display.html?id=59516
--- pp_hot.c.orig 2008-10-21 23:34:17.000000000 +0200
+++ pp_hot.c 2008-10-21 23:34:33.000000000 +0200
@@ -1195,6 +1195,7 @@ PP(pp_qr)
SV * const pkg = CALLREG_PACKAGE(rx);
SV * const rv = sv_newmortal();
SV * const sv = newSVrv(rv, SvPV_nolen(pkg));
+ SvREFCNT_dec(pkg);
if (rx->extflags & RXf_TAINTED)
SvTAINTED_on(rv);
sv_magic(sv,(SV*)ReREFCNT_inc(rx), PERL_MAGIC_qr,0,0);
|
