summaryrefslogtreecommitdiffstats
path: root/tools/songdb.pl
diff options
context:
space:
mode:
authorMichiel Van Der Kolk <not.valid@email.address>2005-04-24 16:21:01 +0000
committerMichiel Van Der Kolk <not.valid@email.address>2005-04-24 16:21:01 +0000
commit11359df6ca0c7f8be6ac5c42fb906b95cba72855 (patch)
tree35af5c4aa169f8b872d8ed667595dc9affa61b01 /tools/songdb.pl
parente327cc8be366338c3ec98e4bf0122abe8be7cafe (diff)
downloadrockbox-11359df6ca0c7f8be6ac5c42fb906b95cba72855.tar.gz
rockbox-11359df6ca0c7f8be6ac5c42fb906b95cba72855.tar.bz2
rockbox-11359df6ca0c7f8be6ac5c42fb906b95cba72855.zip
Do not distinguish between case when sorting entries.
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@6339 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'tools/songdb.pl')
-rwxr-xr-xtools/songdb.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/tools/songdb.pl b/tools/songdb.pl
index b7dc5ce538..19ca1cb634 100755
--- a/tools/songdb.pl
+++ b/tools/songdb.pl
@@ -377,7 +377,7 @@ if ($db) {
# pointer to filename of song1
my $offset = $songindex;
- for(sort {$entries{$a}->{'TITLE'} cmp $entries{$b}->{'TITLE'}} keys %entries) {
+ for(sort {uc($entries{$a}->{'TITLE'}) cmp uc($entries{$b}->{'TITLE'})} keys %entries) {
my $f = $_;
my $id3 = $entries{$f};
my $t = $id3->{'TITLE'};
@@ -403,7 +403,7 @@ if ($db) {
# pointers to artists of album1
# pointers to songs on album1
- for(sort keys %albums) {
+ for(sort {uc($a) cmp uc($b)} keys %albums) {
my $albumid = $_;
my @moo=split(/___/, $_);
my $t = $moo[0];
@@ -440,7 +440,7 @@ if ($db) {
# name of artist1
# pointers to albums of artist1
- for (sort keys %artists) {
+ for (sort {uc($a) cmp uc($b)} keys %artists) {
my $artist = $_;
my $str = $_."\x00" x ($maxartistlen - length($_));
print DB $str;