forked from len0rd/rockbox
i wasn't fully awake o.o
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@7080 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
parent
233b782a85
commit
6fa590b0a7
1 changed files with 2 additions and 2 deletions
|
@ -665,7 +665,7 @@ if ($db) {
|
||||||
#### Build filename offset info
|
#### Build filename offset info
|
||||||
my $l=$fileindex;
|
my $l=$fileindex;
|
||||||
my %filenamepos;
|
my %filenamepos;
|
||||||
for $f (sort keys %entries) {
|
for $f (sort {uc($a) cmp uc($b)} keys %entries) {
|
||||||
$filenamepos{$f}= $l;
|
$filenamepos{$f}= $l;
|
||||||
$l += $fileentrysize;
|
$l += $fileentrysize;
|
||||||
}
|
}
|
||||||
|
@ -710,7 +710,7 @@ if ($db) {
|
||||||
#### TABLE of file names ###
|
#### TABLE of file names ###
|
||||||
# path1
|
# 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 $str = $f."\x00" x ($maxfilelen- length($f));
|
||||||
my $id3 = $entries{$f};
|
my $id3 = $entries{$f};
|
||||||
print DB $str;
|
print DB $str;
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue