Lines Matching refs:right
94 * think the expression is of the right type: croak actually does a Siglongjmp.
1731 Perl_bind_match(pTHX_ I32 type, OP *left, OP *right)
1740 char *desc = PL_op_desc[(right->op_type == OP_SUBST ||
1741 right->op_type == OP_TRANS)
1742 ? right->op_type : OP_MATCH];
1751 if (right->op_type == OP_CONST &&
1752 cSVOPx(right)->op_private & OPpCONST_BARE &&
1753 cSVOPx(right)->op_private & OPpCONST_STRICT)
1755 no_bareword_allowed(right);
1758 if (!(right->op_flags & OPf_STACKED) &&
1759 (right->op_type == OP_MATCH ||
1760 right->op_type == OP_SUBST ||
1761 right->op_type == OP_TRANS)) {
1762 right->op_flags |= OPf_STACKED;
1763 if (right->op_type != OP_MATCH &&
1764 ! (right->op_type == OP_TRANS &&
1765 right->op_private & OPpTRANS_IDENTICAL))
1766 left = mod(left, right->op_type);
1767 if (right->op_type == OP_TRANS)
1768 o = newBINOP(OP_NULL, OPf_STACKED, scalar(left), right);
1770 o = prepend_elem(right->op_type, scalar(left), right);
1777 pmruntime(newPMOP(OP_MATCH, 0), right, Nullop));
3172 Perl_newASSIGNOP(pTHX_ I32 flags, OP *left, I32 optype, OP *right)
3180 newUNOP(OP_SASSIGN, 0, scalar(right)));
3184 mod(scalar(left), optype), scalar(right));
3192 PL_eval_start = right; /* Grandfathering $[ assignment here. Bletch.*/
3198 op_free(right);
3203 && right->op_type == OP_STUB
3206 op_free(right);
3211 o = newBINOP(OP_AASSIGN, flags, list(force_list(right)), curop);
3290 if (right && right->op_type == OP_SPLIT) {
3292 if ((tmpop = ((LISTOP*)right)->op_first) &&
3313 right->op_next = tmpop->op_next; /* fix starting loc */
3315 right->op_flags &= ~OPf_WANT;
3317 return right;
3322 ((LISTOP*)right)->op_last->op_type == OP_CONST)
3324 SV *sv = ((SVOP*)((LISTOP*)right)->op_last)->op_sv;
3333 if (!right)
3334 right = newOP(OP_UNDEF, 0);
3335 if (right->op_type == OP_READLINE) {
3336 right->op_flags |= OPf_STACKED;
3337 return newBINOP(OP_NULL, flags, mod(scalar(left), OP_SASSIGN), scalar(right));
3340 PL_eval_start = right; /* Grandfathering $[ assignment here. Bletch.*/
3342 scalar(right), mod(scalar(left), OP_SASSIGN) );
3592 Perl_newRANGE(pTHX_ I32 flags, OP *left, OP *right)
3607 range->op_other = LINKLIST(right);
3610 left->op_sibling = right;
3620 right->op_next = flop;
3628 flop->op_private = right->op_type == OP_CONST ? OPpFLIP_LINENUM : 0;
3844 OP* right = left->op_sibling;
3850 listop = (LISTOP*)newLISTOP(OP_LIST, 0, left, right);
3853 right->op_next = (OP*)listop;
4821 OP * right = left->op_sibling;
4824 (OP_IS_NUMCOMPARE(right->op_type) &&
4825 (right->op_flags & OPf_PARENS) == 0))