diff options
author | David Mitchell <davem@iabyn.com> | 2015-04-17 16:52:20 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2015-04-19 18:42:00 +0100 |
commit | 87b5a8b9c803ae59e56e2a94a73f566e632038ad (patch) | |
tree | 84fb39e140bd9981d650d54a346d46ced1e73d2b /ext/Devel-Peek | |
parent | 86cd3a13b6713cc9d8406c9316fe126788e2497f (diff) | |
download | perl-87b5a8b9c803ae59e56e2a94a73f566e632038ad.tar.gz |
rename op_lastsib to op_moresib, and invert logic
Rather than having a flag which indicates that there are no more siblings,
have a flag which indicates that there are more siblings. This flag was
only introduced during the current blead cycle, so no production releases
know about it.
Diffstat (limited to 'ext/Devel-Peek')
-rw-r--r-- | ext/Devel-Peek/t/Peek.t | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index e35930b987..56522af1e8 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -1489,40 +1489,40 @@ dumpindent is 4 at -e line 1. { 1 TYPE = leave ===> NULL TARG = 1 - FLAGS = (VOID,KIDS,PARENS,SLABBED,LASTSIB) + FLAGS = (VOID,KIDS,PARENS,SLABBED) PRIVATE = (REFC) REFCNT = 1 { 2 TYPE = enter ===> 3 - FLAGS = (UNKNOWN,SLABBED) + FLAGS = (UNKNOWN,SLABBED,MORESIB) } { 3 TYPE = nextstate ===> 4 - FLAGS = (VOID,SLABBED) + FLAGS = (VOID,SLABBED,MORESIB) LINE = 1 PACKAGE = "t" } { 5 TYPE = entersub ===> 1 TARG = 1 - FLAGS = (VOID,KIDS,STACKED,SLABBED,LASTSIB) + FLAGS = (VOID,KIDS,STACKED,SLABBED) PRIVATE = (TARG) { 6 TYPE = null ===> (5) (was list) - FLAGS = (UNKNOWN,KIDS,SLABBED,LASTSIB) + FLAGS = (UNKNOWN,KIDS,SLABBED) { 4 TYPE = pushmark ===> 7 - FLAGS = (SCALAR,SLABBED) + FLAGS = (SCALAR,SLABBED,MORESIB) } { 8 TYPE = null ===> (6) (was rv2cv) - FLAGS = (SCALAR,KIDS,SLABBED,LASTSIB) + FLAGS = (SCALAR,KIDS,SLABBED) PRIVATE = (0x1) { 7 TYPE = gv ===> 5 - FLAGS = (SCALAR,SLABBED,LASTSIB) + FLAGS = (SCALAR,SLABBED) GV_OR_PADIX } } |