diff options
author | Michiel Van Der Kolk <not.valid@email.address> | 2005-07-08 22:56:36 +0000 |
---|---|---|
committer | Michiel Van Der Kolk <not.valid@email.address> | 2005-07-08 22:56:36 +0000 |
commit | 6fa590b0a74c8328c37e1f25afcb2c64cf5fcedb (patch) | |
tree | 4cab635206fbc18b9bca27a2aa626060a1d6cf31 /tools | |
parent | 233b782a85a415e73661cff84fb0eafc4b530fed (diff) | |
download | rockbox-6fa590b0a74c8328c37e1f25afcb2c64cf5fcedb.tar.gz rockbox-6fa590b0a74c8328c37e1f25afcb2c64cf5fcedb.zip |
i wasn't fully awake o.o
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@7080 a1c6a512-1295-4272-9138-f99709370657
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; |