From: Eric Gillespie <epg@pretzelnet.org>
Date: Sun, 20 Mar 2022 18:52:13 +0000 (-0500)
Subject: pod2usage on error
X-Git-Url: https://diplodocus.org/git/flac-archive/commitdiff_plain/db3e715b108d452dd08452fcd5f0561b3122a223?hp=92a7ddebe0c11576d91011b0ba58b6c2c057c9ed

pod2usage on error
---

diff --git a/fa-encode b/fa-encode
index 1401775..5413ce0 100755
--- a/fa-encode
+++ b/fa-encode
@@ -21,8 +21,9 @@ use v5.12;
 use warnings;
 
 use FindBin;
+use Pod::Usage;
 
-require "$FindBin::Bin/tags.p";
+require "$FindBin::Bin/tags.pl";
 epg::flac::archive::tags->import(
     qw[
         read_tags
@@ -32,7 +33,7 @@ epg::flac::archive::tags->import(
     ]);
 
 sub main {
-    my $input_directory = shift;
+    my $input_directory = shift || pod2usage();
     my $fn = "$input_directory/tags";
     open(my $fh, '<', $fn) || die("open($fn): $!");
     my ($album, $tracks) = read_tags($fh);