Diff of /perl/pl-commit-1bac5ec.patch [000000] .. [6565f5] Maximize Restore

  Switch to side-by-side view

--- a
+++ b/perl/pl-commit-1bac5ec.patch
@@ -0,0 +1,33 @@
+commit 1bac5ecc108e6bb05752e5aef66c6890163aff39
+Author: Brian Fraser <fraserbn@gmail.com>
+Date:   Mon Sep 26 13:48:52 2011 -0700
+
+    sv.c: S_anonymise_cv_maybe UTF8 cleanup.
+
+diff --git a/sv.c b/sv.c
+index d71f901..a3a2c74 100644
+--- a/sv.c
++++ b/sv.c
+@@ -5893,7 +5893,6 @@ Perl_sv_replace(pTHX_ register SV *const sv, register SV *const nsv)
+ STATIC void
+ S_anonymise_cv_maybe(pTHX_ GV *gv, CV* cv)
+ {
+-    char *stash;
+     SV *gvname;
+     GV *anongv;
+ 
+@@ -5913,10 +5912,10 @@ S_anonymise_cv_maybe(pTHX_ GV *gv, CV* cv)
+     }
+ 
+     /* if not, anonymise: */
+-    stash  = GvSTASH(gv) && HvNAME(GvSTASH(gv))
+-              ? HvENAME(GvSTASH(gv)) : NULL;
+-    gvname = Perl_newSVpvf(aTHX_ "%s::__ANON__",
+-					stash ? stash : "__ANON__");
++    gvname = (GvSTASH(gv) && HvNAME(GvSTASH(gv)) && HvENAME(GvSTASH(gv)))
++                    ? newSVhek(HvENAME_HEK(GvSTASH(gv)))
++                    : newSVpvn_flags( "__ANON__", 8, 0 );
++    sv_catpvs(gvname, "::__ANON__");
+     anongv = gv_fetchsv(gvname, GV_ADDMULTI, SVt_PVCV);
+     SvREFCNT_dec(gvname);
+