X-Git-Url: https://diplodocus.org/git/flac-archive/blobdiff_plain/8f216f08d6015318a029f892aac375a658c188a1..HEAD:/fa-mp3cd?ds=inline

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