In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/5115136b5ada1a3245a69b04d93664e445e85eb1?hp=54c717c31383ee341b51465df1a84524ff7245b5>
- Log ----------------------------------------------------------------- commit 5115136b5ada1a3245a69b04d93664e445e85eb1 Author: David Mitchell <[email protected]> Date: Sun Aug 16 16:19:04 2009 +0100 sv_peek(): SvOOK offset is no longer in IVX ----------------------------------------------------------------------- Summary of changes: dump.c | 7 +++++-- 1 files changed, 5 insertions(+), 2 deletions(-) diff --git a/dump.c b/dump.c index af735b5..e7f5a1d 100644 --- a/dump.c +++ b/dump.c @@ -505,8 +505,11 @@ Perl_sv_peek(pTHX_ SV *sv) else { SV * const tmp = newSVpvs(""); sv_catpv(t, "("); - if (SvOOK(sv)) - Perl_sv_catpvf(aTHX_ t, "[%s]", pv_display(tmp, SvPVX_const(sv)-SvIVX(sv), SvIVX(sv), 0, 127)); + if (SvOOK(sv)) { + STRLEN delta; + SvOOK_offset(sv, delta); + Perl_sv_catpvf(aTHX_ t, "[%s]", pv_display(tmp, SvPVX_const(sv)-delta, delta, 0, 127)); + } Perl_sv_catpvf(aTHX_ t, "%s)", pv_display(tmp, SvPVX_const(sv), SvCUR(sv), SvLEN(sv), 127)); if (SvUTF8(sv)) Perl_sv_catpvf(aTHX_ t, " [UTF8 \"%s\"]", -- Perl5 Master Repository
