fix tests after shortening CD filenames

[flac-archive] / fa-mp3cd

diff --git a/fa-mp3cd b/fa-mp3cd
index 523139a..2840016 100755 (executable)
--- a/fa-mp3cd
+++ b/fa-mp3cd
@@ -110,12 +110,16 @@ sub filename {
 }
 
 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}})),