From: Mike Guy <mjtg@cam.ac.uk>
Date: Tue, 29 Aug 2000 21:41:32 +0000 (+0100)
Subject: Put back the flags dump as reasoned in
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e39917cc05377a71374ea2bd3b1ae1b2fc2f3c31;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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 {