Fix single-digit track numbers in flac2mp3.

[flac-archive] / fa-encode

diff --git a/fa-encode b/fa-encode
index e1d3a2c2d205e77e782ad8ded522bb5c19ca6fe0..1401775f28e118009347f9d492b7d1ace099b4aa 100755 (executable)
--- a/fa-encode
+++ b/fa-encode
@@ -28,6 +28,7 @@ epg::flac::archive::tags->import(
         read_tags
         mangle_for_file_name
         quote
         read_tags
         mangle_for_file_name
         quote

+        two_digits

     ]);
 
 sub main {
     ]);
 
 sub main {


@@ -82,11 +83,11 @@ sub main {
             $track->{DISCNUMBER} = \@discnumber;
         }
         my $title = join(' ', @{$track->{TITLE}});
             $track->{DISCNUMBER} = \@discnumber;
         }
         my $title = join(' ', @{$track->{TITLE}});

-        my $tracknum_s = sprintf('%02d', $tracknum);
+        my $tracknum_s = two_digits($tracknum);

         my $fn = join('/',
                       $dir,
                       join('_',
         my $fn = join('/',
                       $dir,
                       join('_',

-                           (map { sprintf('%02d', $_) } @discnumber),
+                           (map { two_digits($_) } @discnumber),

                            $tracknum_s,
                            mangle_for_file_name($title) . '.flac',
                       ),
                            $tracknum_s,
                            mangle_for_file_name($title) . '.flac',
                       ),