diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2015-03-18 21:56:46 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2015-03-18 22:20:38 -0700 |
| commit | bac7a184cda7b75406b8f293e546375eae0c1693 (patch) | |
| tree | 33bea862bb37b8d7b1f22e26282159678e831cfc /universal.c | |
| parent | b24768f02e4adcd11668f94274f5617c4a3f5379 (diff) | |
| download | perl-bac7a184cda7b75406b8f293e546375eae0c1693.tar.gz | |
universal.c: PERL_OP_PARENT support
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/universal.c b/universal.c index 864558f84a..db20cd6acb 100644 --- a/universal.c +++ b/universal.c @@ -1060,7 +1060,7 @@ optimize_out_native_convert_function(pTHX_ OP* entersubop, SvREFCNT_dec(prototype); pushop = cUNOPx(entersubop)->op_first; - if (! pushop->op_sibling) { + if (! OpHAS_SIBLING(pushop)) { pushop = cUNOPx(pushop)->op_first; } argop = pushop->op_sibling; @@ -1068,8 +1068,8 @@ optimize_out_native_convert_function(pTHX_ OP* entersubop, /* Carry on without doing the optimization if it is not something we're * expecting, so continues to work */ if ( ! argop - || ! argop->op_sibling - || argop->op_sibling->op_sibling + || ! OpHAS_SIBLING(argop) + || OpHAS_SIBLING(argop->op_sibling) ) { return entersubop; } |