Silence warnings from lib/QueryAdvisorRules.pm

This commit is contained in:
Brian Fraser fraserb@gmail.com
2012-03-30 15:58:00 -03:00
parent 8a4bc61a6b
commit 33954b72f9

View File

@@ -189,7 +189,7 @@ sub get_rules {
foreach my $pred ( @$where ) { foreach my $pred ( @$where ) {
my $val = $pred->{right_arg}; my $val = $pred->{right_arg};
next unless $val; next unless $val;
return 0 if $val =~ m/^\d+$/ && $orderby_col{lc $pred->{left_arg}}; return 0 if $val =~ m/^\d+$/ && $orderby_col{lc($pred->{left_arg} || '')};
} }
return; return;
}, },