fix tests after shortening CD filenames

[flac-archive] / fa-mp3cd

diff --git a/fa-mp3cd b/fa-mp3cd
index a15318b..2840016 100755 (executable)
--- a/fa-mp3cd
+++ b/fa-mp3cd
@@ -105,19 +105,21 @@ sub filename {
             (map { two_digits($_) } @{$tags->{DISCNUMBER} // []}),
             (map { two_digits($_) } @{$tags->{TRACKNUMBER} // []}),
             @{$tags->{TITLE}},
-            @{$tags->{VERSION} // []},
-            @{$tags->{PARTNUMBER} // []},
         )
     ) . '.mp3';
 }
 
 sub plan_flac {
+    local $@;
     my $workdir = shift;
     my $path = shift;
     my $tags = shift;
-
+    my %track_tags = eval { track_tags($tags) };
+    if ($@) {
+        die("$@: $path")
+    }
     (
-     tags => {track_tags($tags)},
+     tags => \%track_tags,
      flac => $path,
      filename => filename($tags),
      dir => join('/', $workdir, mangle_for_file_name(@{$tags->{ALBUM}})),