X-Git-Url: https://diplodocus.org/git/flac-archive/blobdiff_plain/da01937237d371e73fdafd9cf387800c3c06a769..HEAD:/flac2mp3?ds=inline

diff --git a/flac2mp3 b/flac2mp3
index e3e3867..4dbb927 100755
--- 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',