diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2000-08-29 22:41:32 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-30 00:25:47 +0000 |
| commit | e39917cc05377a71374ea2bd3b1ae1b2fc2f3c31 (patch) | |
| tree | 5f4f44473597e96d46edf7c5dcf91c780f6dfe2a /dump.c | |
| parent | e64f0054c65de1a097c72a5d43578d1a5bcf0e38 (diff) | |
| download | perl-e39917cc05377a71374ea2bd3b1ae1b2fc2f3c31.tar.gz | |
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
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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: |