Case insensitive sorting

This commit is contained in:
Jamie Cameron
2007-07-16 00:40:25 +00:00
parent d0c9c8dd62
commit a6547cc304

View File

@@ -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;
}