From: Jan Dubois <jand@activestate.com>
Date: Mon, 18 Jan 1999 00:37:41 +0000 (+0100)
Subject: fix bugs in do_sv_dump() from Devel::Peek integration
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=52a3d2a938a7a240eea131aeb662fbbdf694a73b;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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");