fix tests after shortening CD filenames

[flac-archive] / flac2mp3

diff --git a/flac2mp3 b/flac2mp3
index e3e386788702236d5ea93b31dae2e8ea44c46e30..4dbb9278e99abe4704c4b4bf72f5b53c6fae0df3 100755 (executable)
--- a/flac2mp3
+++ b/flac2mp3
@@ -52,6 +52,7 @@ package epg::flac::archive::mp3;
 use v5.12;
 use warnings;
 
+use File::Temp;
 use FindBin;
 
 use lib $FindBin::Bin;
@@ -72,6 +73,11 @@ sub flac2mp3 {
     my $flac = shift;
     my $tags = shift;
 
+    my @version;
+    if (defined($tags->{version})) {
+        @version = ('(' . $tags->{version} . ')');
+    }
+
     # This is an old TODO; what's wrong with --ty ?
     # TODO: Look at TDOR, TDRL, TDRC for date.
     say(
@@ -93,7 +99,7 @@ sub flac2mp3 {
             '--tn',
             quote($tags->{tracknumber}),
             '--tt',
-            quote($tags->{title}),
+            quote(join(' ', $tags->{title}, @version)),
             '--ty',
             quote($tags->{date}),
             '$pic_options',