summaryrefslogtreecommitdiffstats
path: root/tools/songdb.pl
diff options
context:
space:
mode:
authorBjörn Stenberg <bjorn@haxx.se>2005-01-17 13:32:06 +0000
committerBjörn Stenberg <bjorn@haxx.se>2005-01-17 13:32:06 +0000
commit445d5d5a6eddd63baa8b38fb57f9aed304d3758f (patch)
treef4c74829f4a647605a992ffa722e7aeca95980ba /tools/songdb.pl
parent225116e27634bd6cd7bd686d6f79f1089d08bcab (diff)
downloadrockbox-445d5d5a6eddd63baa8b38fb57f9aed304d3758f.tar.gz
rockbox-445d5d5a6eddd63baa8b38fb57f9aed304d3758f.tar.bz2
rockbox-445d5d5a6eddd63baa8b38fb57f9aed304d3758f.zip
Don't print to STDERR.
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@5580 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'tools/songdb.pl')
-rwxr-xr-xtools/songdb.pl18
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) {
sub dumpint {
my ($num)=@_;
-# print STDERR "int: $num\n";
+# print "int: $num\n";
printf DB ("%c%c%c%c",
$num>>24,
@@ -283,14 +283,14 @@ if ($db) {
my $albumentrysize = $maxalbumlen + 4 + $maxsongperalbum*4;
my $artistentrysize = $maxartistlen + $maxalbumsperartist*4;
- printf STDERR "Number of artists : %d\n", scalar keys %artists;
- printf STDERR "Number of albums : %d\n", scalar keys %albums;
- printf STDERR "Number of songs : %d\n", scalar keys %entries;
- print STDERR "Max artist length : $maxartistlen ($longestartist)\n";
- print STDERR "Max album length : $maxalbumlen ($longestalbumname)\n";
- print STDERR "Max song length : $maxsonglen ($longestsong)\n";
- print STDERR "Max songs per album: $maxsongperalbum ($longestalbum)\n";
- print STDERR "Database version: $dbver\n" if ($verbose);
+ printf "Number of artists : %d\n", scalar keys %artists;
+ printf "Number of albums : %d\n", scalar keys %albums;
+ printf "Number of songs : %d\n", scalar keys %entries;
+ print "Max artist length : $maxartistlen ($longestartist)\n";
+ print "Max album length : $maxalbumlen ($longestalbumname)\n";
+ print "Max song length : $maxsonglen ($longestsong)\n";
+ print "Max songs per album: $maxsongperalbum ($longestalbum)\n";
+ print "Database version: $dbver\n" if ($verbose);
open(DB, ">$db") || die "couldn't make $db";
printf DB "RDB%c", $dbver;