}
close(TAGS) or die("close(metaflac --export-vc-to=- $fn): $?");
+ # If no TITLEs, stick a dummy in here.
+ if (@$titles == 0) {
+ push(@$titles, undef);
+ }
+
return ($artist, $album, $date, $discnum, $track);
}
sub flac2mp3 {
my $fn = shift;
- my $title = shift;
- my $artist = shift;
- my $album = shift;
- my $date = shift;
+ my $title = (shift or 'unknown');
+ my $artist = (shift or 'unknown');
+ my $album = (shift or 'unknown');
+ my $date = (shift or 'unknown');
my $track = int(shift);
my $skip_arg = shift;
my $until_arg = shift;