Print error message to stderr.

[flac-archive] / fa-tags

diff --git a/fa-tags b/fa-tags
index d399287bf71805ff276d4f072f38f6efd8895a2e..26d2845a60ee0bc140a47daf4b78ce3110971e80 100755 (executable)
--- a/fa-tags
+++ b/fa-tags
@@ -7,6 +7,10 @@
 use strict;
 use warnings;
 
+use Env qw(
+           CDDEV
+);
+
 use Getopt::Long;
 use Pod::Usage;
 
@@ -20,7 +24,13 @@ $help and pod2usage(-exitstatus=>0, -verbose=>1);
 
 my $trackcount = shift or pod2usage();
 
-my $mb = new MusicBrainz::Client::Simple;
+my $mb;
+if (defined($CDDEV)) {
+    $mb = new MusicBrainz::Client::Simple (device=>$CDDEV);
+} else {
+    $mb = new MusicBrainz::Client::Simple;
+}
+
 my @result = $mb->lookup_cd;
 die($mb->get_error) unless $mb->success;