diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2001-06-18 19:53:44 +0530 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-18 11:57:45 +0000 |
| commit | addd17944a903a06ff703e464df3c19e25641a1a (patch) | |
| tree | 731b88d4a8894f454fad483e5e552b545bf68060 /dump.c | |
| parent | f284b03f5001b3142d3bce4033dc8a2f11b9d3c6 (diff) | |
| download | perl-addd17944a903a06ff703e464df3c19e25641a1a.tar.gz | |
FLAGS = (...,OUR,TYPED,...)
Message-ID: <20010618142344.A13136@lustre.linux.in>
p4raw-id: //depot/perl@10681
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -963,6 +963,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo if (GvSHARED(sv)) sv_catpv(d, "SHARED,"); if (GvASSUMECV(sv)) sv_catpv(d, "ASSUMECV,"); if (GvIN_PAD(sv)) sv_catpv(d, "IN_PAD,"); + if (flags & SVpad_OUR) sv_catpv(d, "OUR,"); if (GvIMPORTED(sv)) { sv_catpv(d, "IMPORT"); if (GvIMPORTED(sv) == GVf_IMPORTED) @@ -976,7 +977,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo sv_catpv(d, " ),"); } } - /* FALL THROGH */ + /* FALL THROUGH */ default: if (SvEVALED(sv)) sv_catpv(d, "EVALED,"); if (SvIsUV(sv)) sv_catpv(d, "IsUV,"); @@ -986,6 +987,10 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo if (SvTAIL(sv)) sv_catpv(d, "TAIL,"); if (SvVALID(sv)) sv_catpv(d, "VALID,"); break; + case SVt_PVMG: + if (flags & SVpad_TYPED) + sv_catpv(d, "TYPED,"); + break; } if (*(SvEND(d) - 1) == ',') |