summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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) {
263sub dumpint { 263sub 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;