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 ) {
my $val = $pred->{right_arg};
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;
},