diff options
Diffstat (limited to 'dump.c')
-rw-r--r-- | dump.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2683,8 +2683,8 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo Perl_dump_indent(aTHX_ level, file, " PPRIVATE = 0x%" UVxf "\n", PTR2UV(r->pprivate)); Perl_dump_indent(aTHX_ level, file, " OFFS = 0x%" UVxf "\n", - PTR2UV(r->offs)); - if (r->offs) { + PTR2UV(RXp_OFFSp(r))); + if (RXp_OFFSp(r)) { U32 n; sv_setpvs(d,"[ "); /* note offs[0] is for the whole match, and @@ -2692,7 +2692,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo * show one more than we have nparens. */ for(n = 0; n <= r->nparens; n++) { sv_catpvf(d,"%" IVdf ":%" IVdf "%s", - (IV)(r->offs[n].start), (IV)(r->offs[n].end), + (IV)RXp_OFFSp(r)[n].start, (IV)RXp_OFFSp(r)[n].end, n+1 > r->nparens ? " ]\n" : ", "); } Perl_dump_indent(aTHX_ level, file, " %" SVf, d); |