diff options
| author | Jan Dubois <jand@activestate.com> | 1999-01-18 01:37:41 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-01-18 05:41:21 +0000 |
| commit | 52a3d2a938a7a240eea131aeb662fbbdf694a73b (patch) | |
| tree | 3aba0e60299932c65d6e5e08a274a4a773f46f9e /dump.c | |
| parent | 13d7cbc19a96f5e624f1b194ed83075a47c1251d (diff) | |
| download | perl-52a3d2a938a7a240eea131aeb662fbbdf694a73b.tar.gz | |
fix bugs in do_sv_dump() from Devel::Peek integration
Message-Id: <36a271cd.2105507@smtp1.ibm.net>
p4raw-id: //depot/perl@2638
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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"); |