diff options
Diffstat (limited to 'lang/perl5/patches/patch-ri')
-rw-r--r-- | lang/perl5/patches/patch-ri | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lang/perl5/patches/patch-ri b/lang/perl5/patches/patch-ri new file mode 100644 index 00000000000..675b07b78e2 --- /dev/null +++ b/lang/perl5/patches/patch-ri @@ -0,0 +1,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); |