summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2018-03-20 16:21:20 +0000
committerDavid Mitchell <davem@iabyn.com>2018-03-21 09:30:29 +0000
commit321b2aa7ac696d15be70825c58264e195c1eb310 (patch)
tree84b17cbfb514d85e0e9284de888df69c8c9f9587
parent7409ea5bbe81f691ca3a38072887895a24fbe4ed (diff)
downloadperl-321b2aa7ac696d15be70825c58264e195c1eb310.tar.gz
op_dump(): display PARENT of top-most node
When dumping a subtree, display the op_parent() value for the top-most node of the subtree.
-rw-r--r--dump.c5
-rw-r--r--ext/Devel-Peek/t/Peek.t1
2 files changed, 6 insertions, 0 deletions
diff --git a/dump.c b/dump.c
index aeb9955688..227eb996ee 100644
--- a/dump.c
+++ b/dump.c
@@ -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);
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t
index 58dc109d97..2c0c849cf6 100644
--- a/ext/Devel-Peek/t/Peek.t
+++ b/ext/Devel-Peek/t/Peek.t
@@ -1459,6 +1459,7 @@ for my $test (
dumpindent is 4 at -e line 1.
1 leave LISTOP(0xNNN) ===> [0x0]
+ PARENT ===> [0x0]
TARG = 1
FLAGS = (VOID,KIDS,PARENS,SLABBED)
PRIVATE = (REFC)