jplesnik pushed to perl (f21). "Don't leak the temp utf8 copy of namepv (bug #1062576)"

[notifications at fedoraproject.org]

From d00ee57841002417845a967afb1197309ae411ea Mon Sep 17 00:00:00 2001
From: Jitka Plesnikova <jplesnik at redhat.com>
Date: Wed, 16 Sep 2015 15:27:09 +0200
Subject: Don't leak the temp utf8 copy of namepv (bug #1062576)


diff --git a/perl-123786-don-t-leak-the-temp-utf8-copy-of-n.patch b/perl-123786-don-t-leak-the-temp-utf8-copy-of-n.patch
new file mode 100644
index 0000000..811584a
--- /dev/null
+++ b/perl-123786-don-t-leak-the-temp-utf8-copy-of-n.patch
@@ -0,0 +1,33 @@
+From 8d89c0509dd5eb1de58dc6617f6e08599eb24792 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony at develop-help.com>
+Date: Mon, 10 Aug 2015 13:37:26 +0100
+Subject: [PATCH] [PATCH] [perl #123786] don't leak the temp utf8 copy of
+ namepv
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Signed-off-by: Petr Písař <ppisar at redhat.com>
+---
+ pad.c | 4 +++-
+ 1 file changed, 3 insertions(+), 1 deletion(-)
+
+diff --git a/pad.c b/pad.c
+index fed2892..f22c3c5 100644
+--- a/pad.c
++++ b/pad.c
+@@ -976,8 +976,10 @@ Perl_pad_findmy_pvn(pTHX_ const char *namepv, STRLEN namelen, U32 flags)
+ 
+         if (is_utf8)
+             flags |= padadd_UTF8_NAME;
+-        else
++        else {
+             flags &= ~padadd_UTF8_NAME;
++            SAVEFREEPV(namepv);
++        }
+     }
+ 
+     offset = pad_findlex(namepv, namelen, flags,
+-- 
+2.4.3
+
diff --git a/perl.spec b/perl.spec
index dba2314..9215370 100644
--- a/perl.spec
+++ b/perl.spec
@@ -30,7 +30,7 @@
 Name:           perl
 Version:        %{perl_version}
 # release number must be even higher, because dual-lived modules will be broken otherwise
-Release:        308%{?dist}
+Release:        309%{?dist}
 Epoch:          %{perl_epoch}
 Summary:        Practical Extraction and Report Language
 Group:          Development/Languages
@@ -133,6 +133,9 @@ Patch24:        perl-5.18.2-Pass-fwrapv-to-stricter-GCC-4.9.patch
 # Create site paths by cpan for the first time, bug #1132321, CPAN RT#99905
 Patch25:        perl-5.18.4-CPAN-Attemp-to-create-site-library-directories-on-first-t.patch
 
+# Don't leak the temp utf8 copy of namepv, bug #1062576, CPAN RT#123786
+Patch26:        perl-123786-don-t-leak-the-temp-utf8-copy-of-n.patch
+
 # Link XS modules to libperl.so with EU::CBuilder on Linux, bug #960048
 Patch200:       perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-CBuilder-on-Li.patch
 
@@ -1994,6 +1997,7 @@ tarball from perl.org.
 %patch23 -p1
 %patch24 -p1
 %patch25 -p1
+%patch26 -p1
 %patch200 -p1
 %patch201 -p1
 
@@ -2023,6 +2027,7 @@ perl -x patchlevel.h \
     'Fedora Patch23: Fix t/comp/parser.t not to load system modules (RT#121579)' \
     'Fedora Patch24: Pass -fwrapv to stricter GCC 4.9 (RT#121505)' \
     'Fedora Patch25: Create site paths by cpan for the first time (CPAN RT#99905)' \
+    'Fedora Patch26: Do not leak the temp utf8 copy of namepv (CPAN RT#123786)' \
     'Fedora Patch200: Link XS modules to libperl.so with EU::CBuilder on Linux' \
     'Fedora Patch201: Link XS modules to libperl.so with EU::MM on Linux' \
     %{nil}
@@ -3754,6 +3759,9 @@ sed \
 
 # Old changelog entries are preserved in CVS.
 %changelog
+* Wed Sep 16 2015 Jitka Plesnikova <jplesnik at redhat.com> - 4:5.18.1-309
+- Don't leak the temp utf8 copy of namepv (bug #1062576)
+
 * Thu Apr 02 2015 Petr Šabata <contyk at redhat.com> - 4:5.18.1-308
 - Correct a typo in the license tag
 
-- 
cgit v0.10.2


	http://pkgs.fedoraproject.org/cgit/perl.git/commit/?h=f21&id=d00ee57841002417845a967afb1197309ae411ea