Blame SOURCES/perl-5.20.3-Don-t-leak-the-temp-utf8-copy-of-n.patch
|
 |
fb6d68 |
From 8d89c0509dd5eb1de58dc6617f6e08599eb24792 Mon Sep 17 00:00:00 2001
|
|
|
fb6d68 |
From: Tony Cook <tony@develop-help.com>
|
|
|
fb6d68 |
Date: Mon, 10 Aug 2015 13:37:26 +0100
|
|
|
fb6d68 |
Subject: [PATCH] [PATCH] [perl #123786] don't leak the temp utf8 copy of
|
|
|
fb6d68 |
namepv
|
|
|
fb6d68 |
MIME-Version: 1.0
|
|
|
fb6d68 |
Content-Type: text/plain; charset=UTF-8
|
|
|
fb6d68 |
Content-Transfer-Encoding: 8bit
|
|
|
fb6d68 |
|
|
|
fb6d68 |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
fb6d68 |
---
|
|
|
fb6d68 |
pad.c | 4 +++-
|
|
|
fb6d68 |
1 file changed, 3 insertions(+), 1 deletion(-)
|
|
|
fb6d68 |
|
|
|
fb6d68 |
diff --git a/pad.c b/pad.c
|
|
|
fb6d68 |
index fed2892..f22c3c5 100644
|
|
|
fb6d68 |
--- a/pad.c
|
|
|
fb6d68 |
+++ b/pad.c
|
|
|
fb6d68 |
@@ -976,8 +976,10 @@ Perl_pad_findmy_pvn(pTHX_ const char *namepv, STRLEN namelen, U32 flags)
|
|
|
fb6d68 |
|
|
|
fb6d68 |
if (is_utf8)
|
|
|
fb6d68 |
flags |= padadd_UTF8_NAME;
|
|
|
fb6d68 |
- else
|
|
|
fb6d68 |
+ else {
|
|
|
fb6d68 |
flags &= ~padadd_UTF8_NAME;
|
|
|
fb6d68 |
+ SAVEFREEPV(namepv);
|
|
|
fb6d68 |
+ }
|
|
|
fb6d68 |
}
|
|
|
fb6d68 |
|
|
|
fb6d68 |
offset = pad_findlex(namepv, namelen, flags,
|
|
|
fb6d68 |
--
|
|
|
fb6d68 |
2.4.3
|
|
|
fb6d68 |
|