fix tests after shortening CD filenames

[flac-archive] / fa-mp3cd

diff --git a/fa-mp3cd b/fa-mp3cd
index 523139afd9b122a9ef3c60021027ad0fdef6a985..2840016d4a6b9712423889d775b04f3e423bad5b 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}})),