diff options
author | David Mitchell <davem@iabyn.com> | 2018-03-20 16:21:20 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2018-03-21 09:30:29 +0000 |
commit | 321b2aa7ac696d15be70825c58264e195c1eb310 (patch) | |
tree | 84b17cbfb514d85e0e9284de888df69c8c9f9587 /ext | |
parent | 7409ea5bbe81f691ca3a38072887895a24fbe4ed (diff) | |
download | perl-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.
Diffstat (limited to 'ext')
-rw-r--r-- | ext/Devel-Peek/t/Peek.t | 1 |
1 files changed, 1 insertions, 0 deletions
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) |