summaryrefslogtreecommitdiff
path: root/dump.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2010-07-29 19:06:02 +0100
committerDavid Mitchell <davem@iabyn.com>2010-07-29 19:06:02 +0100
commit8530ff282653a25fc2e4a3560c503d74509ca31b (patch)
tree2e0efb15ac7ed28172f20f2c8263f4992326b5fe /dump.c
parent002beaef76a1595af2e39ffd4cd55c595bd6c271 (diff)
downloadperl-8530ff282653a25fc2e4a3560c503d74509ca31b.tar.gz
Perl_do_sv_dump didn't increase nesting for magic
Diffstat (limited to 'dump.c')
-rw-r--r--dump.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/dump.c b/dump.c
index eeb43be961..691588f049 100644
--- a/dump.c
+++ b/dump.c
@@ -1733,7 +1733,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
do_hv_dump(level, file, " OURSTASH", ost);
} else {
if (SvMAGIC(sv))
- do_magic_dump(level, file, SvMAGIC(sv), nest, maxnest, dumpops, pvlim);
+ do_magic_dump(level, file, SvMAGIC(sv), nest+1, maxnest, dumpops, pvlim);
}
if (SvSTASH(sv))
do_hv_dump(level, file, " STASH", SvSTASH(sv));