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

[flac-archive] / flac2mp3

diff --git a/flac2mp3 b/flac2mp3
index 5115b72..d82e61d 100755 (executable)
--- a/flac2mp3
+++ b/flac2mp3
@@ -62,12 +62,13 @@ epg::flac::archive::tags->import(
         read_tags
         mangle_for_file_name
         quote
+        two_digits
     ]);
 
 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
@@ -116,8 +117,8 @@ sub flac2mp3 {
                      join(' ',
                           $artist,
                           $album,
-                          (map { sprintf('%02d', $_) } @{$discnumber}),
-                          $tracknumber,
+                          (map { two_digits($_) } @{$discnumber}),
+                          two_digits($tracknumber),
                           $title,
                      ))
                  . '.mp3'