fix bugs in do_sv_dump() from Devel::Peek integration

	Message-Id: <36a271cd.2105507@smtp1.ibm.net>

p4raw-id: //depot/perl@2638

diff --git a/dump.c b/dump.c
index 44a9142..77b3604 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -896,8 +896,8 @@ do_sv_dump(I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops,
            if (SvOOK(sv))
                PerlIO_printf(file, "( %s . ) ", pv_display(d, SvPVX(sv)-SvIVX(sv), SvIVX(sv), 0, pvlim));
            PerlIO_printf(file, "%s\n", pv_display(d, SvPVX(sv), SvCUR(sv), SvLEN(sv), pvlim));
-           dump_indent(level, file, "  CUR = 0\n", (long)SvCUR(sv));
-           dump_indent(level, file, "  LEN = 0\n", (long)SvLEN(sv));
+           dump_indent(level, file, "  CUR = %ld\n", (long)SvCUR(sv));
+           dump_indent(level, file, "  LEN = %ld\n", (long)SvLEN(sv));
        }
        else
            dump_indent(level, file, "  PV = 0\n");