diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-04-07 11:00:41 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-19 07:06:13 +0000 |
| commit | dd28f7bb7eebdb0b562c940b3c4f89457e829ea6 (patch) | |
| tree | fee71493033bb3c2057e0c4b474527a3abcfe7b1 /dump.c | |
| parent | bfe0b8460c5710ac333ad9f60968a82600193679 (diff) | |
| download | perl-dd28f7bb7eebdb0b562c940b3c4f89457e829ea6.tar.gz | |
allow recursive FETCHes
Message-ID: <20030407100041.A1617@fdgroup.com>
p4raw-id: //depot/perl@19268
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -1180,8 +1180,9 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo Perl_dump_indent(aTHX_ level, file, " TARGOFF = %"IVdf"\n", (IV)LvTARGOFF(sv)); Perl_dump_indent(aTHX_ level, file, " TARGLEN = %"IVdf"\n", (IV)LvTARGLEN(sv)); Perl_dump_indent(aTHX_ level, file, " TARG = 0x%"UVxf"\n", PTR2UV(LvTARG(sv))); - /* XXX level+1 ??? */ - do_sv_dump(level, file, LvTARG(sv), nest+1, maxnest, dumpops, pvlim); + if (LvTYPE(sv) != 't' && LvTYPE(sv) != 'T') + do_sv_dump(level+1, file, LvTARG(sv), nest+1, maxnest, + dumpops, pvlim); break; case SVt_PVAV: Perl_dump_indent(aTHX_ level, file, " ARRAY = 0x%"UVxf, PTR2UV(AvARRAY(sv))); |