diff options
| author | David Mitchell <davem@iabyn.com> | 2009-08-16 16:19:04 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2009-08-16 16:19:04 +0100 |
| commit | 5115136b5ada1a3245a69b04d93664e445e85eb1 (patch) | |
| tree | dec0d3a03747c6a8993742f0a105f68648becb95 /dump.c | |
| parent | 54c717c31383ee341b51465df1a84524ff7245b5 (diff) | |
| download | perl-5115136b5ada1a3245a69b04d93664e445e85eb1.tar.gz | |
sv_peek(): SvOOK offset is no longer in IVX
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -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\"]", |