diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-07-09 18:02:33 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-09-15 22:45:02 -0700 |
| commit | 3610c89f8ee6462cb194b0106d9bb4a362538267 (patch) | |
| tree | 6fd894b63cf7be9ce03ceaeef3115d1af809d9ee /dump.c | |
| parent | 0039161fd1eda8af79f30af33ee5b36bababf4ac (diff) | |
| download | perl-3610c89f8ee6462cb194b0106d9bb4a362538267.tar.gz | |
dump.c: Dump CvNAME_HEK
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -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)); |