len0rd/rockbox
1
0
Fork 1
mirror of https://github.com/Rockbox/rockbox.git synced 2025-11-10 05:32:40 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Don't print to STDERR.

Browse source 
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@5580 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Björn Stenberg 2005-01-17 13:32:06 +00:00
parent 225116e276
commit 445d5d5a6e
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
tools/songdb.pl
View file

@ -263,7 +263,7 @@ while($maxalbumlen&3) {
sub dumpint { sub dumpint {
my ($num)=@_; my ($num)=@_;
# print STDERR "int: $num\n"; # print "int: $num\n";
printf DB ("%c%c%c%c", printf DB ("%c%c%c%c",
$num>>24, $num>>24,
@ -283,14 +283,14 @@ if ($db) {
my $albumentrysize = $maxalbumlen + 4 + $maxsongperalbum*4; my $albumentrysize = $maxalbumlen + 4 + $maxsongperalbum*4;
my $artistentrysize = $maxartistlen + $maxalbumsperartist*4; my $artistentrysize = $maxartistlen + $maxalbumsperartist*4;
printf STDERR "Number of artists : %d\n", scalar keys %artists; printf "Number of artists : %d\n", scalar keys %artists;
printf STDERR "Number of albums : %d\n", scalar keys %albums; printf "Number of albums : %d\n", scalar keys %albums;
printf STDERR "Number of songs : %d\n", scalar keys %entries; printf "Number of songs : %d\n", scalar keys %entries;
print STDERR "Max artist length : $maxartistlen ($longestartist)\n"; print "Max artist length : $maxartistlen ($longestartist)\n";
print STDERR "Max album length : $maxalbumlen ($longestalbumname)\n"; print "Max album length : $maxalbumlen ($longestalbumname)\n";
print STDERR "Max song length : $maxsonglen ($longestsong)\n"; print "Max song length : $maxsonglen ($longestsong)\n";
print STDERR "Max songs per album: $maxsongperalbum ($longestalbum)\n"; print "Max songs per album: $maxsongperalbum ($longestalbum)\n";
print STDERR "Database version: $dbver\n" if ($verbose); print "Database version: $dbver\n" if ($verbose);
open(DB, ">$db") || die "couldn't make $db"; open(DB, ">$db") || die "couldn't make $db";
printf DB "RDB%c", $dbver; printf DB "RDB%c", $dbver;