summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xtools/songdb.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/songdb.pl b/tools/songdb.pl
index cfa18f221c..0377bfd9e6 100755
--- a/tools/songdb.pl
+++ b/tools/songdb.pl
@@ -665,7 +665,7 @@ if ($db) {
#### Build filename offset info
my $l=$fileindex;
my %filenamepos;
- for $f (sort keys %entries) {
+ for $f (sort {uc($a) cmp uc($b)} keys %entries) {
$filenamepos{$f}= $l;
$l += $fileentrysize;
}
@@ -710,7 +710,7 @@ if ($db) {
#### TABLE of file names ###
# path1
- for (sort {uc($a) cmp uc($b)} %entries) {
+ for $f (sort {uc($a) cmp uc($b)} %entries) {
my $str = $f."\x00" x ($maxfilelen- length($f));
my $id3 = $entries{$f};
print DB $str;