mirror of
https://github.com/webmin/webmin.git
synced 2026-02-03 14:13:29 +00:00
Case insensitive sorting
This commit is contained in:
@@ -30,7 +30,7 @@ elsif (!opendir(DIR, $in{'dir'})) {
|
||||
else {
|
||||
# Can list the directory
|
||||
print "\n";
|
||||
@files = sort { $a cmp $b } readdir(DIR);
|
||||
@files = sort { lc($a) cmp lc($b) } readdir(DIR);
|
||||
if ($hide_dot_files) {
|
||||
@files = grep { $_ !~ /^\./ } @files;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user