From 008009b018c37f5547c0b7fe459a620d1682e6c3 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Thu, 18 Sep 2014 16:12:24 -0700 Subject: Dump GPFLAGS --- dump.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'dump.c') diff --git a/dump.c b/dump.c index 1d2f095dc9..c848dcda7e 100644 --- a/dump.c +++ b/dump.c @@ -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)); -- cgit v1.2.1