From 80ebabc551363062c6789e6c1984130a87107088 Mon Sep 17 00:00:00 2001 From: zagor Date: Mon, 17 Jan 2005 13:32:06 +0000 Subject: [PATCH] Don't print to STDERR. git-svn-id: svn://svn.rockbox.org/rockbox/trunk@5580 a1c6a512-1295-4272-9138-f99709370657 --- tools/songdb.pl | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/tools/songdb.pl b/tools/songdb.pl index 0abb01422..f61bc2966 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; -- 2.11.4.GIT