Lines Matching refs:operator
101 my ($left,$operator,$right) = @_;
105 if ($operator =~ /^(=|==|eq)$/)
116 elsif (eval($left.$operator.$right))
157 my ($left,$operator,$right) = ($1,$2,$3);
159 if ($operator !~ /^=|==|eq$/)
161 die "unsupported operator $operator on line $LineNo";
173 $result = EvaluateOperator($left_value, $operator, $right);
191 $result = EvaluateOperator($language, $operator, $right) ? 1 : 0;
211 $result = EvaluateOperator($ENV{'INPATH'}, $operator, $right) ? 1 : 0;
252 my ($term, $operator) = ($1,$2);
257 return 0 if ($operator eq "&&" && !$left_result);
259 return 1 if ($operator eq "||" && $left_result);
262 if ($operator eq "&&")