tibtoa: Yield a useful error message when the input cannot be read

1 files changed, 3 insertions, 1 deletions

diff --git a/bin/tibtoa b/bin/tibtoa
index 9c18d7a..61c786f 100755
--- a/bin/tibtoa
+++ b/bin/tibtoa
@@ -26,6 +26,7 @@ my ($header, $footer);
 my ($char, $char2);
 my $out;
 my $cache;
+my $file;
 my ($indent, $rindent) = (0,0);
 my %opts;
 my ($program, $length, $offset);
@@ -839,7 +840,8 @@ sub header_datestr($) {
 
 getopts('ih', \%opts);
 
-open(my $input, '<', shift) or die;
+$file = shift;
+open(my $input, '<', $file) or die("Cannot open $file: $!");
 binmode($input);
 read($input, $header, $headerlength);
 $program = <$input>;