fix some failing tests

[flac-archive] / fa-encode

diff --git a/fa-encode b/fa-encode
index 8a1dc6399bc4a19978e12847272d596b0a94c630..9388f07e2f91c4a3ed68835a2fe1cb22953e7dc5 100755 (executable)
--- a/fa-encode
+++ b/fa-encode
@@ -31,6 +31,7 @@ epg::flac::archive::tags->import(
         read_tags
         mangle_for_file_name
         quote
+        track_tags_from_disc
         two_digits
     ]);
 
@@ -113,6 +114,7 @@ sub main {
             );
         -e $fn && die("cowardly refusing to clobber $fn");
         my @pictures = ('--picture', quote('3|image/jpeg|||cover.front.jpeg')); # TODO optional
+        @pictures = ();         # XXX
         my $tracknum_s = two_digits($tracknum);
         say(join(' ',
                  'flac -o',