(get_tags): Properly handle errors from metaflac.

diff --git a/flac2mp3 b/flac2mp3
index df248fa66df1d57e3a68d4552365f7f065505c95..5a92c3c266ffef1d5a03ed329480c607698ca872 100755 (executable)
--- a/flac2mp3
+++ b/flac2mp3
@@ -75,7 +75,8 @@ sub get_tags {
     my $date;
     my @titles;
 
     my $date;
     my @titles;
 

-    open(TAGS, '-|', 'metaflac', '--export-vc-to=-', $fn);
+    open(TAGS, '-|', 'metaflac', '--export-vc-to=-', $fn)
+      or die("open(metaflac --export-vc-to=- $fn): $!");

     while (<TAGS>) {
         chomp;
 
     while (<TAGS>) {
         chomp;
 


@@ -91,7 +92,7 @@ sub get_tags {
             push(@titles, $value);
         }
     }
             push(@titles, $value);
         }
     }

-    close(TAGS) or die("close($fn): $!");
+    close(TAGS) or die("close(metaflac --export-vc-to=- $fn): $?");

 
     return ($artist, $album, $date, @titles);
 }
 
     return ($artist, $album, $date, @titles);
 }