This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Glob dumping
authorGisle Aas <gisle@aas.no>
Tue, 29 Aug 2000 07:59:42 +0000 (07:59 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 29 Aug 2000 14:03:51 +0000 (14:03 +0000)
Message-ID: <20000829075942.20923.qmail@eik.g.aas.no>

p4raw-id: //depot/perl@6881

dump.c

diff --git a/dump.c b/dump.c
index 88af6ef..8c29a88 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -833,6 +833,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
        if (GvINTRO(sv))        sv_catpv(d, "INTRO,");
        if (GvMULTI(sv))        sv_catpv(d, "MULTI,");
        if (GvASSUMECV(sv))     sv_catpv(d, "ASSUMECV,");
+       if (GvIN_PAD(sv))       sv_catpv(d, "IN_PAD,");
        if (GvIMPORTED(sv)) {
            sv_catpv(d, "IMPORT");
            if (GvIMPORTED(sv) == GVf_IMPORTED)
@@ -1155,7 +1156,6 @@ 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: