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