foreach my $release (@releases) {
my $a_artist = $release->artist()->name();
my $va = 0;
+ my $rel_year = "";
if ($a_artist =~ /Various Artists/) {
$va = 1;
}
- my @events = @{$release->release_event_list()->events()};
- my $rel_year = "";
- if ($release->release_event_list()->count() > 0) {
+ if ($release->release_event_list()->count() > 0) {
+ my @events = @{$release->release_event_list()->events()};
$rel_year = substr($events[0]->date(),0,4);
}
}
} elsif ($command =~ m/calcid/) {
# Calculate MusicBrainz ID from disc offsets; see
-# http://musicbrainz.org/doc/DiscIDCalculation
+# https://musicbrainz.org/doc/DiscIDCalculation
if ($#discinfo < 5) {
print $id;
if (-t STDOUT) { print "\n"; }
} else {
- print STDERR "Unknown commmand given.\n";
+ print STDERR "Unknown command given.\n";
pod2usage(1);
exit(1);
}