diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2002-12-19 19:00:21 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-01-03 11:06:40 +0000 |
| commit | d9d18af660f47fb8e7eedfe8204daab3270e514f (patch) | |
| tree | 6848c806a377785585348c08e5b91d127aea32bb /dump.c | |
| parent | 235cc2e3b03f7c8478aa5ccdbe27e0aaf735bb46 (diff) | |
| download | perl-d9d18af660f47fb8e7eedfe8204daab3270e514f.tar.gz | |
new flag SvPADSTALE
Message-ID: <20021219190021.D9530@fdgroup.com>
p4raw-id: //depot/perl@18410
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -942,6 +942,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo (int)(PL_dumpindent*level), "", (IV)SvREFCNT(sv), (int)(PL_dumpindent*level), ""); + if (flags & SVs_PADSTALE) sv_catpv(d, "PADSTALE,"); if (flags & SVs_PADTMP) sv_catpv(d, "PADTMP,"); if (flags & SVs_PADMY) sv_catpv(d, "PADMY,"); if (flags & SVs_TEMP) sv_catpv(d, "TEMP,"); |