diff options
| author | Benjamin Sugars <bsugars@canoe.ca> | 2001-05-03 12:51:07 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-03 23:21:03 +0000 |
| commit | f4af57186f10a42f70bb14b7e24391d828b683da (patch) | |
| tree | 77227809370fd2473476544988548f71e3806c91 /dump.c | |
| parent | ae1204bf4d404806a193c0c835dfa29300a7d3eb (diff) | |
| download | perl-f4af57186f10a42f70bb14b7e24391d828b683da.tar.gz | |
Let sv_dump understand GvSHARED
Message-ID: <Pine.LNX.4.21.0105031645280.805-100000@marmot.rim.canoe.ca>
p4raw-id: //depot/perl@9982
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -838,6 +838,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo case SVt_PVGV: if (GvINTRO(sv)) sv_catpv(d, "INTRO,"); if (GvMULTI(sv)) sv_catpv(d, "MULTI,"); + if (GvSHARED(sv)) sv_catpv(d, "SHARED,"); if (GvASSUMECV(sv)) sv_catpv(d, "ASSUMECV,"); if (GvIN_PAD(sv)) sv_catpv(d, "IN_PAD,"); if (GvIMPORTED(sv)) { |