diff options
Diffstat (limited to 'tools')
-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 cfa18f221c..0377bfd9e6 100755 --- a/tools/songdb.pl +++ b/tools/songdb.pl | |||
@@ -665,7 +665,7 @@ if ($db) { | |||
665 | #### Build filename offset info | 665 | #### Build filename offset info |
666 | my $l=$fileindex; | 666 | my $l=$fileindex; |
667 | my %filenamepos; | 667 | my %filenamepos; |
668 | for $f (sort keys %entries) { | 668 | for $f (sort {uc($a) cmp uc($b)} keys %entries) { |
669 | $filenamepos{$f}= $l; | 669 | $filenamepos{$f}= $l; |
670 | $l += $fileentrysize; | 670 | $l += $fileentrysize; |
671 | } | 671 | } |
@@ -710,7 +710,7 @@ if ($db) { | |||
710 | #### TABLE of file names ### | 710 | #### TABLE of file names ### |
711 | # path1 | 711 | # path1 |
712 | 712 | ||
713 | for (sort {uc($a) cmp uc($b)} %entries) { | 713 | for $f (sort {uc($a) cmp uc($b)} %entries) { |
714 | my $str = $f."\x00" x ($maxfilelen- length($f)); | 714 | my $str = $f."\x00" x ($maxfilelen- length($f)); |
715 | my $id3 = $entries{$f}; | 715 | my $id3 = $entries{$f}; |
716 | print DB $str; | 716 | print DB $str; |