diff options
author | Björn Stenberg <bjorn@haxx.se> | 2005-01-17 13:32:06 +0000 |
---|---|---|
committer | Björn Stenberg <bjorn@haxx.se> | 2005-01-17 13:32:06 +0000 |
commit | 445d5d5a6eddd63baa8b38fb57f9aed304d3758f (patch) | |
tree | f4c74829f4a647605a992ffa722e7aeca95980ba | |
parent | 225116e27634bd6cd7bd686d6f79f1089d08bcab (diff) | |
download | rockbox-445d5d5a6eddd63baa8b38fb57f9aed304d3758f.tar.gz rockbox-445d5d5a6eddd63baa8b38fb57f9aed304d3758f.zip |
Don't print to STDERR.
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@5580 a1c6a512-1295-4272-9138-f99709370657
-rwxr-xr-x | tools/songdb.pl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/tools/songdb.pl b/tools/songdb.pl index 0abb014228..f61bc29661 100755 --- a/tools/songdb.pl +++ b/tools/songdb.pl | |||
@@ -263,7 +263,7 @@ while($maxalbumlen&3) { | |||
263 | sub dumpint { | 263 | sub dumpint { |
264 | my ($num)=@_; | 264 | my ($num)=@_; |
265 | 265 | ||
266 | # print STDERR "int: $num\n"; | 266 | # print "int: $num\n"; |
267 | 267 | ||
268 | printf DB ("%c%c%c%c", | 268 | printf DB ("%c%c%c%c", |
269 | $num>>24, | 269 | $num>>24, |
@@ -283,14 +283,14 @@ if ($db) { | |||
283 | my $albumentrysize = $maxalbumlen + 4 + $maxsongperalbum*4; | 283 | my $albumentrysize = $maxalbumlen + 4 + $maxsongperalbum*4; |
284 | my $artistentrysize = $maxartistlen + $maxalbumsperartist*4; | 284 | my $artistentrysize = $maxartistlen + $maxalbumsperartist*4; |
285 | 285 | ||
286 | printf STDERR "Number of artists : %d\n", scalar keys %artists; | 286 | printf "Number of artists : %d\n", scalar keys %artists; |
287 | printf STDERR "Number of albums : %d\n", scalar keys %albums; | 287 | printf "Number of albums : %d\n", scalar keys %albums; |
288 | printf STDERR "Number of songs : %d\n", scalar keys %entries; | 288 | printf "Number of songs : %d\n", scalar keys %entries; |
289 | print STDERR "Max artist length : $maxartistlen ($longestartist)\n"; | 289 | print "Max artist length : $maxartistlen ($longestartist)\n"; |
290 | print STDERR "Max album length : $maxalbumlen ($longestalbumname)\n"; | 290 | print "Max album length : $maxalbumlen ($longestalbumname)\n"; |
291 | print STDERR "Max song length : $maxsonglen ($longestsong)\n"; | 291 | print "Max song length : $maxsonglen ($longestsong)\n"; |
292 | print STDERR "Max songs per album: $maxsongperalbum ($longestalbum)\n"; | 292 | print "Max songs per album: $maxsongperalbum ($longestalbum)\n"; |
293 | print STDERR "Database version: $dbver\n" if ($verbose); | 293 | print "Database version: $dbver\n" if ($verbose); |
294 | 294 | ||
295 | open(DB, ">$db") || die "couldn't make $db"; | 295 | open(DB, ">$db") || die "couldn't make $db"; |
296 | printf DB "RDB%c", $dbver; | 296 | printf DB "RDB%c", $dbver; |