diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-12-07 17:11:21 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-07 17:32:36 -0800 |
| commit | e6dae479a92dc835be9b026ea350a20b94199aa2 (patch) | |
| tree | 5913265cf5fd1110d2a3844ea0ddecdc06c8d9ff /ext/Devel-Peek | |
| parent | 1daa0c574de23f83ee2d6bba1bc312c165d72dee (diff) | |
| download | perl-e6dae479a92dc835be9b026ea350a20b94199aa2.tar.gz | |
Change OP_SIBLING to OpSIBLING
to match the existing convention (OpREFCNT, OpSLAB).
Dave Mitchell asked me to wait until after his multideref work
was merged.
Unfortunately, there are now CPAN modules using OP_SIBLING.
Diffstat (limited to 'ext/Devel-Peek')
| -rw-r--r-- | ext/Devel-Peek/Peek.xs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/Devel-Peek/Peek.xs b/ext/Devel-Peek/Peek.xs index 205b338936..7e64edeee9 100644 --- a/ext/Devel-Peek/Peek.xs +++ b/ext/Devel-Peek/Peek.xs @@ -362,12 +362,12 @@ S_ck_dump(pTHX_ OP *entersubop, GV *namegv, SV *cv) parent = entersubop; pm = cUNOPx(entersubop)->op_first; - if (!OP_HAS_SIBLING(pm)) { + if (!OpHAS_SIBLING(pm)) { parent = pm; pm = cUNOPx(pm)->op_first; } - first = OP_SIBLING(pm); - second = OP_SIBLING(first); + first = OpSIBLING(pm); + second = OpSIBLING(first); if (!second) { /* It doesn’t really matter what we return here, as this only occurs after yyerror. */ @@ -376,7 +376,7 @@ S_ck_dump(pTHX_ OP *entersubop, GV *namegv, SV *cv) /* we either have Dump($x): [pushmark]->[first]->[ex-cvop] * or Dump($x,1); [pushmark]->[first]->[second]->[ex-cvop] */ - if (!OP_HAS_SIBLING(second)) + if (!OpHAS_SIBLING(second)) second = NULL; if (first->op_type == OP_RV2AV || |