From 3610c89f8ee6462cb194b0106d9bb4a362538267 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Mon, 9 Jul 2012 18:02:33 -0700 Subject: [PATCH] dump.c: Dump CvNAME_HEK --- dump.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/dump.c b/dump.c index 46893d6..830ab4b 100644 --- a/dump.c +++ b/dump.c @@ -1924,7 +1924,10 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo (IV)CvXSUBANY(sv).any_i32); } } - do_gvgv_dump(level, file, " GVGV::GV", CvGV(sv)); + if (CvNAMED(sv)) + Perl_dump_indent(aTHX_ level, file, " NAME = \"%s\"\n", + HEK_KEY(CvNAME_HEK((CV *)sv))); + else do_gvgv_dump(level, file, " GVGV::GV", CvGV(sv)); Perl_dump_indent(aTHX_ level, file, " FILE = \"%s\"\n", CvFILE(sv)); Perl_dump_indent(aTHX_ level, file, " DEPTH = %"IVdf"\n", (IV)CvDEPTH(sv)); Perl_dump_indent(aTHX_ level, file, " FLAGS = 0x%"UVxf"\n", (UV)CvFLAGS(sv)); -- 1.8.3.1