Lines Matching refs:right
1015 /* This code tries to decide if "$left .. $right" should use the
1019 #define RANGE_IS_NUMERIC(left,right) ( \
1021 SvNIOKp(right) || (SvOK(right) && !SvPOKp(right)) || \
1022 (((!SvOK(left) && SvOK(right)) || (looks_like_number(left) && \
1023 SvPOKp(left) && *SvPVX(left) != '0')) && looks_like_number(right)))
1037 if (SvGMAGICAL(right))
1038 mg_get(right);
1040 if (RANGE_IS_NUMERIC(left,right)) {
1042 (SvOK(right) && SvNV(right) > IV_MAX))
1045 max = SvIV(right);
1059 SV *final = sv_mortalcopy(right);
1406 if (SvTRUE(left) != SvTRUE(right))
1712 SV *right = (SV*)cx->blk_loop.iterary;
1713 if (RANGE_IS_NUMERIC(sv,right)) {
1715 (SvOK(right) && SvNV(right) >= IV_MAX))
1718 cx->blk_loop.itermax = SvIV(right);
1724 (void) SvPV(right,n_a);
2798 /* make sure we compile in the right package */