Put back the flags dump as reasoned in

Subject: Re: [PATCH] Glob dumping
Message-Id: <E13TsCK-0007iL-00@draco.cus.cam.ac.uk>

p4raw-id: //depot/perl@6906

diff --git a/dump.c b/dump.c
index 8c29a88..ad0a21f 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -1156,6 +1156,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
        Perl_dump_indent(aTHX_ level, file, "    GPFLAGS = 0x%"UVxf"\n", (UV)GvGPFLAGS(sv));
        Perl_dump_indent(aTHX_ level, file, "    LINE = %"IVdf"\n", (IV)GvLINE(sv));
        Perl_dump_indent(aTHX_ level, file, "    FILE = \"%s\"\n", GvFILE(sv));
+       Perl_dump_indent(aTHX_ level, file, "    FLAGS = 0x%"UVxf"\n", (UV)GvFLAGS(sv));
        do_gv_dump (level, file, "    EGV", GvEGV(sv));
        break;
     case SVt_PVIO:

diff --git a/t/lib/peek.t b/t/lib/peek.t
index 2c05efb..a90574f 100644 (file)
--- a/t/lib/peek.t
+++ b/t/lib/peek.t
@@ -304,6 +304,7 @@ do_test(17,
     GPFLAGS = 0x0
     LINE = \\d+
     FILE = ".*\\b(?i:peek\\.t)"
+    FLAGS = $ADDR
     EGV = $ADDR\\t"a"');
 
 END {