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