From d00ee57841002417845a967afb1197309ae411ea Mon Sep 17 00:00:00 2001 From: Jitka Plesnikova jplesnik@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@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@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@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@redhat.com - 4:5.18.1-308 - Correct a typo in the license tag
perl-devel@lists.fedoraproject.org