Dump GPFLAGS
authorFather Chrysostomos <sprout@cpan.org>
Thu, 18 Sep 2014 23:12:24 +0000 (16:12 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 19 Sep 2014 01:20:50 +0000 (18:20 -0700)
dump.c
ext/Devel-Peek/t/Peek.t

diff --git a/dump.c b/dump.c
index 1d2f095..c848dcd 100644 (file)
--- 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));
index 643ff45..34c654c 100644 (file)
@@ -504,6 +504,7 @@ do_test('typeglob',
     CV = 0x0
     CVGEN = 0x0
     GPFLAGS = 0x0                              # $] < 5.009
+    GPFLAGS = 0x0 \(\)                         # $] >= 5.021004
     LINE = \\d+
     FILE = ".*\\b(?i:peek\\.t)"
     FLAGS = $ADDR                              # $] < 5.021004