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 | |
parent | 233b782a85a415e73661cff84fb0eafc4b530fed (diff) |
i wasn't fully awake o.o
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@7080 a1c6a512-1295-4272-9138-f99709370657
-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) { #### 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; |