sort case-insensitively

This commit is contained in:
Josh Holtrop 2011-04-19 21:33:55 -04:00
parent 72ebf3417e
commit 56066a65ae

View File

@ -4411,7 +4411,7 @@ sub git_project_list_body {
); );
my $oi = $order_info{$order}; my $oi = $order_info{$order};
if ($oi->{'type'} eq 'str') { if ($oi->{'type'} eq 'str') {
@projects = sort {$a->{$oi->{'key'}} cmp $b->{$oi->{'key'}}} @projects; @projects = sort {lc($a->{$oi->{'key'}}) cmp lc($b->{$oi->{'key'}})} @projects;
} else { } else {
@projects = sort {$a->{$oi->{'key'}} <=> $b->{$oi->{'key'}}} @projects; @projects = sort {$a->{$oi->{'key'}} <=> $b->{$oi->{'key'}}} @projects;
} }