tidy and test epg::flac::archive::tags::disc_tags

[flac-archive] / flac2mp3

diff --git a/flac2mp3 b/flac2mp3
index b4126e2..d82e61d 100755 (executable)
--- a/flac2mp3
+++ b/flac2mp3
@@ -68,7 +68,7 @@ epg::flac::archive::tags->import(
 sub flac2mp3 {
     my $quoted_flac = quote(shift);
     my $tags = shift;
-    my ($album, $artist, $date, $discnumber) = disc_tags($tags);
+    my ($artist, $album, $date, $discnumber) = disc_tags(%$tags);
 
         # TODO resurrect whole-disc FLAC?
         # Stupid hack: only a single-track file should have the