diff options
Diffstat (limited to 'dump.c')
-rw-r--r-- | dump.c | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -1000,6 +1000,11 @@ S_do_op_dump_bar(pTHX_ I32 level, UV bar, PerlIO *file, const OP *o) /* print op common fields */ + if (level == 0) { + S_opdump_indent(aTHX_ o, level, bar, file, "PARENT"); + S_opdump_link(aTHX_ o, op_parent((OP*)o), file); + } + if (o->op_targ && optype != OP_NULL) S_opdump_indent(aTHX_ o, level, bar, file, "TARG = %ld\n", (long)o->op_targ); |