Ensure insensitive sort for any character set

ylavoie · Oct 30, 2022 · c1a8540 · c1a8540
1 parent a9e296d
commit c1a8540
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/old/lib/LedgerSMB/DBObject/User.pm b/old/lib/LedgerSMB/DBObject/User.pm
@@ -8,6 +8,7 @@ package LedgerSMB::DBObject::User;
 
 use strict;
 use warnings;
+use feature 'fc';
 
 use base qw(LedgerSMB::PGOld);
 
@@ -128,7 +129,7 @@ sub get_option_data {
 
     $self->{cssfiles} = [];
     opendir CSS, "UI/css/.";
-    for my $opt (grep /.*\.css$/, sort readdir CSS){
+    for my $opt (grep /.*\.css$/, sort { fc($a) cmp fc($b) } readdir CSS){
          push @{$self->{cssfiles}}, {file => $opt};
     }
     closedir CSS;