[pkgsrc/trunk]: pkgsrc/lang/perl5 Fixed a memory leak in the qr operator. PKG...

[rillig <rillig%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/2647d83df7e6
branches:  trunk
changeset: 548721:2647d83df7e6
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Tue Oct 21 22:46:49 2008 +0000

description:
Fixed a memory leak in the qr operator. PKGREVISION++

diffstat:

 lang/perl5/Makefile         |   4 ++--
 lang/perl5/distinfo         |   3 ++-
 lang/perl5/patches/patch-ri |  14 ++++++++++++++
 3 files changed, 18 insertions(+), 3 deletions(-)

diffs (49 lines):

diff -r 6dd39862ef57 -r 2647d83df7e6 lang/perl5/Makefile
--- a/lang/perl5/Makefile       Tue Oct 21 22:07:36 2008 +0000
+++ b/lang/perl5/Makefile       Tue Oct 21 22:46:49 2008 +0000
@@ -1,8 +1,8 @@
-# $NetBSD: Makefile,v 1.141 2008/10/19 19:04:57 he Exp $
+# $NetBSD: Makefile,v 1.142 2008/10/21 22:46:49 rillig Exp $
 
 DISTNAME=      perl-5.10.0
 CATEGORIES=    lang devel perl5
-PKGREVISION=   1
+PKGREVISION=   2
 MASTER_SITES=  ${MASTER_SITE_PERL_CPAN:S,/modules/by-module/$,/src/,}
 DISTFILES+=    ${DISTNAME}${EXTRACT_SUFX}
 
diff -r 6dd39862ef57 -r 2647d83df7e6 lang/perl5/distinfo
--- a/lang/perl5/distinfo       Tue Oct 21 22:07:36 2008 +0000
+++ b/lang/perl5/distinfo       Tue Oct 21 22:46:49 2008 +0000
@@ -1,4 +1,4 @@
-$NetBSD: distinfo,v 1.51 2008/10/11 19:36:11 tron Exp $
+$NetBSD: distinfo,v 1.52 2008/10/21 22:46:49 rillig Exp $
 
 SHA1 (perl-5.10.0.tar.gz) = adf73606dd5248af7ccdd735bcaa0e628ea75b3c
 RMD160 (perl-5.10.0.tar.gz) = c6614fc99a162790a703f91085b24a60af903ba2
@@ -15,6 +15,7 @@
 SHA1 (patch-ck) = 28207b8186c9ad194a1edc696159915bc16d1097
 SHA1 (patch-cn) = 7ca2b1ff19f8371637a34ec26779b37d74c74cca
 SHA1 (patch-co) = 493ae6cb6cb544ce023c2a1fb067abe943bba2d4
+SHA1 (patch-ri) = fc838ec10cf601a580aa1f58eb93c3198a13ff71
 SHA1 (patch-ta) = 60d9ef72db56b9f149f3995b3f526fc32a352bd7
 SHA1 (patch-zc) = a23002397ffaebb243f7683c95c8fb227af90f49
 SHA1 (patch-zd) = ee67148b8f44fb3826273574abb62ad9ca4ffa7f
diff -r 6dd39862ef57 -r 2647d83df7e6 lang/perl5/patches/patch-ri
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/lang/perl5/patches/patch-ri       Tue Oct 21 22:46:49 2008 +0000
@@ -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);