dump.c, sv_dump: Escape the name of the OUTSIDE sub

1 files changed, 7 insertions, 1 deletions

diff --git a/dump.c b/dump.c
index 8d42fccebd..964f2fef8a 100644
--- a/dump.c
+++ b/dump.c
@@ -2162,7 +2162,13 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
 			 : CvANON(outside) ? "ANON"
 			 : (outside == PL_main_cv) ? "MAIN"
 			 : CvUNIQUE(outside) ? "UNIQUE"
-			 : CvGV(outside) ? GvNAME(CvGV(outside)) : "UNDEFINED"));
+			 : CvGV(outside) ?
+			     generic_pv_escape(
+			         newSVpvs_flags("", SVs_TEMP),
+			         GvNAME(CvGV(outside)),
+			         GvNAMELEN(CvGV(outside)),
+			         GvNAMEUTF8(CvGV(outside)))
+			 : "UNDEFINED"));
 	}
 	if (nest < maxnest && (CvCLONE(sv) || CvCLONED(sv)))
 	    do_sv_dump(level+1, file, MUTABLE_SV(CvOUTSIDE(sv)), nest+1, maxnest, dumpops, pvlim);