Factor out the flac(1)-running part to run_flac, which is identical

in both versions.

diff --git a/fa-flacd b/fa-flacd
index aeeff3c..b9f883c 100755 (executable)
--- a/fa-flacd
+++ b/fa-flacd
@@ -78,6 +78,38 @@ sub bork_tags {
     return @result;
 }
 
     return @result;
 }
 

+sub run_flac {
+    my $infile = shift;
+    my $cue = shift;
+    my $outfile = shift;
+
+    my @cue;
+    if (defined($cue)) {
+        @cue = ('--cuesheet', $cue);
+    }
+
+    verbose("Running flac\n");
+    my $status = system('flac', '-o', "$outfile.flac-tmp",
+                     '--delete-input-file', '-V', '--no-padding', '--best',
+                     @cue,
+                     map({ ('-T', $_) } @_),
+                     $infile);
+    if (WIFEXITED($status)) {
+        if (($status = WEXITSTATUS($status)) != 0) {
+            die("flac exited with status $status");
+        }
+    } elsif (WIFSIGNALED($status)) {
+        die("flac killed with signal ", WTERMSIG($status));
+    } elsif (WIFSTOPPED($status)) {
+        die("flac stopped with signal ", WSTOPSIG($status));
+    } else {
+        die("Major horkage on system(flac): \$? = $? \$! = $!");
+    }
+
+    rename("$outfile.flac-tmp", "$outfile.flac")
+      or die("rename($outfile.flac-tmp, $outfile.flac): $!");
+}
+

 # Process the fa-rip output in the directory DIR.
 sub flac {
     my $dir = shift;
 # Process the fa-rip output in the directory DIR.
 sub flac {
     my $dir = shift;


@@ -86,7 +118,6 @@ sub flac {
     my $discnum;
     my @tags;
     my $outfile;
     my $discnum;
     my @tags;
     my $outfile;

-    my $status;

 
     verbose("Renaming $dir/tags\n");
     rename("$dir/tags", "$dir/using-tags")
 
     verbose("Renaming $dir/tags\n");
     rename("$dir/tags", "$dir/using-tags")


@@ -141,28 +172,10 @@ sub flac {
             @lartist = @artist;
         }
 
             @lartist = @artist;
         }
 

-        verbose("Running flac\n");
-        $status = system('flac', '-o', "$outfile.flac-tmp",
-                         '--delete-input-file', '-V', '--no-padding', '--best',
-                         map({ ('-T', $_) }
-                             @lartist,
-                             grep({ $_ !~ /^ARTIST=/ } @tags),
-                             bork_tags($things{$tracknum})),
-                         sprintf('track%02d.cdda.wav', $tracknum));
-        if (WIFEXITED($status)) {
-            if (($status = WEXITSTATUS($status)) != 0) {
-                die("flac exited with status $status");
-            }
-        } elsif (WIFSIGNALED($status)) {
-            die("flac killed with signal ", WTERMSIG($status));
-        } elsif (WIFSTOPPED($status)) {
-            die("flac stopped with signal ", WSTOPSIG($status));
-        } else {
-            die("Major horkage on system(flac): \$? = $? \$! = $!");
-        }
-
-        rename("$outfile.flac-tmp", "$outfile.flac")
-          or die("rename($outfile.flac-tmp, $outfile.flac): $!");
+        run_flac(sprintf('track%02d.cdda.wav', $tracknum), undef, $outfile,
+                 @lartist,
+                 grep({ $_ !~ /^ARTIST=/ } @tags),
+                 bork_tags($things{$tracknum}));

     }
 
     verbose("Cleaning up $dir\n");
     }
 
     verbose("Cleaning up $dir\n");