Lines Matching refs:right
101 my ($left,$operator,$right) = @_;
107 if ($left =~ /^$right$/)
116 elsif (eval($left.$operator.$right))
157 my ($left,$operator,$right) = ($1,$2,$3);
164 die "no right side in condition on line $LineNo ($term)" if ! defined $right;
173 $result = EvaluateOperator($left_value, $operator, $right);
177 if ($right eq "all")
188 $right =~ s/_/-/g;
191 $result = EvaluateOperator($language, $operator, $right) ? 1 : 0;
204 if ($right eq "all")
211 $result = EvaluateOperator($ENV{'INPATH'}, $operator, $right) ? 1 : 0;