diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-09-18 16:12:24 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-18 18:20:50 -0700 |
| commit | 008009b018c37f5547c0b7fe459a620d1682e6c3 (patch) | |
| tree | adfaead6662255856a6c72c2f3654565bedee932 /dump.c | |
| parent | ff2a62e0c8bedade55bf86a22861a2fe06bb0a16 (diff) | |
| download | perl-008009b018c37f5547c0b7fe459a620d1682e6c3.tar.gz | |
Dump GPFLAGS
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -2040,6 +2040,10 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo Perl_dump_indent(aTHX_ level, file, " HV = 0x%"UVxf"\n", PTR2UV(GvHV(sv))); Perl_dump_indent(aTHX_ level, file, " CV = 0x%"UVxf"\n", PTR2UV(GvCV(sv))); Perl_dump_indent(aTHX_ level, file, " CVGEN = 0x%"UVxf"\n", (UV)GvCVGEN(sv)); + Perl_dump_indent(aTHX_ level, file, " GPFLAGS = 0x%"UVxf + " (%s)\n", + (UV)GvGPFLAGS(sv), + GvALIASED_SV(sv) ? "ALIASED_SV" : ""); Perl_dump_indent(aTHX_ level, file, " LINE = %"IVdf"\n", (IV)GvLINE(sv)); Perl_dump_indent(aTHX_ level, file, " FILE = \"%s\"\n", GvFILE(sv)); do_gv_dump (level, file, " EGV", GvEGV(sv)); |