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/Devel-Peek | |
| 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/Devel-Peek')
| -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) |