File perl-utf8leak.diff of Package perl.6851

commit 8d89c0509dd5eb1de58dc6617f6e08599eb24792
Author: Tony Cook <tony@develop-help.com>
Date:   Mon Aug 10 13:37:26 2015 +0100

    [PATCH] [perl #123786] don't leak the temp utf8 copy of namepv

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,