Lines Matching refs:oright
6833 OP *oright = cUNOPo->op_first; in Perl_peep() local
6834 if (!oright || oright->op_type != OP_PUSHMARK) in Perl_peep()
6850 pushmark->op_next = oright->op_next; in Perl_peep()
6851 op_null(oright); in Perl_peep()
6860 oright = cUNOPx(oright)->op_sibling; in Perl_peep()
6861 if (!oright) in Perl_peep()
6863 if (oright->op_type == OP_NULL) { /* skip sort block/sub */ in Perl_peep()
6864 oright = cUNOPx(oright)->op_sibling; in Perl_peep()
6867 if (!oright || in Perl_peep()
6868 (oright->op_type != OP_RV2AV && oright->op_type != OP_PADAV) in Perl_peep()
6869 || oright->op_next != o in Perl_peep()
6870 || (oright->op_private & OPpLVAL_INTRO) in Perl_peep()
6912 if (oright->op_type != OP_RV2AV in Perl_peep()
6913 || !cUNOPx(oright)->op_first in Perl_peep()
6914 || cUNOPx(oright)->op_first->op_type != OP_GV in Perl_peep()
6916 cGVOPx_gv(cUNOPx(oright)->op_first) in Perl_peep()
6920 else if (oright->op_type != OP_PADAV in Perl_peep()
6921 || oright->op_targ != oleft->op_targ in Perl_peep()
6926 oright->op_flags = oleft->op_flags; in Perl_peep()