From c53e4eb516ca65d8eacd9bd35b1ed2b66755d6c6 Mon Sep 17 00:00:00 2001
From: Brian Fraser <fraserbn@gmail.com>
Date: Mon, 5 Aug 2013 01:01:35 -0300
Subject: [PATCH] sv_peek didn't add quotes before, doesn't need them now

---
 dump.c                    | 2 +-
 ext/XS-APItest/t/svpeek.t | 7 ++++++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/dump.c b/dump.c
index f05f11e..8d42fcc 100644
--- a/dump.c
+++ b/dump.c
@@ -421,7 +421,7 @@ Perl_sv_peek(pTHX_ SV *sv)
     if (type == SVt_PVCV) {
         SV * const tmp = newSVpvs_flags("", SVs_TEMP);
         GV* gvcv = CvGV(sv);
-        Perl_sv_catpvf(aTHX_ t, "CV(\"%s\")", gvcv
+        Perl_sv_catpvf(aTHX_ t, "CV(%s)", gvcv
                        ? generic_pv_escape( tmp, GvNAME(gvcv), GvNAMELEN(gvcv), GvNAMEUTF8(gvcv))
                        : "");
 	goto finish;
diff --git a/ext/XS-APItest/t/svpeek.t b/ext/XS-APItest/t/svpeek.t
index 89fda59..5d18297 100644
--- a/ext/XS-APItest/t/svpeek.t
+++ b/ext/XS-APItest/t/svpeek.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 50;
+use Test::More tests => 52;
 
 BEGIN { use_ok('XS::APItest') };
 
@@ -74,6 +74,11 @@ if ($^O eq 'vos') {
   $VAR = sub { "VAR" };
   is (DPeek ($VAR),	'\CV(__ANON__)',	' $VAR sub { "VAR" }');
   is (DPeek (\$VAR),	'\\\CV(__ANON__)',	'\$VAR sub { "VAR" }');
+  
+  $VAR = eval qq{sub \x{30cd} { "VAR" } \\&\x{30cd}};
+  is (DPeek ($VAR),     '\CV(\x{30cd})',        ' $VAR sub \x{30cd} { "VAR" }');
+  is (DPeek (\$VAR),    '\\\\CV(\x{30cd})',      '\$VAR sub \x{30cd} { "VAR" }');
+
   $VAR = 0;
 
   is (DPeek (\&VAR),	'\CV(VAR)',		'\&VAR');
-- 
2.7.4