diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-08-09 12:56:03 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-08-09 19:28:34 -0700 |
| commit | 01ffd0f1a566de2c2bb4912b1def7a86918cb79d (patch) | |
| tree | 7cdd09281338cd1444a6460f6a694542077af928 /dump.c | |
| parent | cb2dcfb25ec8a3cf487a54f645efffed55b50153 (diff) | |
| download | perl-01ffd0f1a566de2c2bb4912b1def7a86918cb79d.tar.gz | |
dump.c: Dump contents of regexps’ mother_re field
This can make debugging easier if one needs to see the reference count
of the parent regular expression.
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -2187,6 +2187,9 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo PTR2UV(r->engine)); Perl_dump_indent(aTHX_ level, file, " MOTHER_RE = 0x%"UVxf"\n", PTR2UV(r->mother_re)); + if (nest < maxnest && r->mother_re) + do_sv_dump(level+1, file, (SV *)r->mother_re, nest+1, + maxnest, dumpops, pvlim); Perl_dump_indent(aTHX_ level, file, " PAREN_NAMES = 0x%"UVxf"\n", PTR2UV(r->paren_names)); Perl_dump_indent(aTHX_ level, file, " SUBSTRS = 0x%"UVxf"\n", |