diff options
| -rwxr-xr-x | tools/songdb.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/songdb.pl b/tools/songdb.pl index cfa18f2..0377bfd 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; |