Skip to content

bugzilla
bugzilla
Commit d8e899ba authored by Frédéric Buclin's avatar Frédéric Buclin
Browse files
Options

Bug 561129: Various warnings thrown by Search.pm: Perl 5.12 complains for lc(undef) and uc(undef)

r/a=mkanat
parent 7ce9b17e
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 4 deletions
Bugzilla/Search.pm
View file @ d8e899ba
......@@ -398,8 +398,8 @@ sub init {
}
}
my $chfieldfrom = trim(lc($params->param('chfieldfrom'))) || '';
my $chfieldto = trim(lc($params->param('chfieldto'))) || '';
my $chfieldfrom = trim(lc($params->param('chfieldfrom') || ''));
my $chfieldto = trim(lc($params->param('chfieldto') || ''));
$chfieldfrom = '' if ($chfieldfrom eq 'now');
$chfieldto = '' if ($chfieldto eq 'now');
my @chfield = $params->param('chfield');
......@@ -1190,8 +1190,7 @@ sub BuildOrderBy {
sub split_order_term {
my $fragment = shift;
$fragment =~ /^(.+?)(?:\s+(ASC|DESC))?$/i;
my ($column_name, $direction) = (lc($1), uc($2));
$direction ||= "";
my ($column_name, $direction) = (lc($1), uc($2 || ''));
return wantarray ? ($column_name, $direction) : $column_name;
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment