Properly detect if given a directory name as argument.

[blhc/blhc.git] / bin / blhc

diff --git a/bin/blhc b/bin/blhc
index b5dfa6822e55fec0858cd7ed4006dbbf6549143e..d5cc9d624c46fd56ad74f9b22ca548157c9aff83 100755 (executable)
--- a/bin/blhc
+++ b/bin/blhc
@@ -601,6 +601,8 @@ FILE:
 foreach my $file (@ARGV) {
     print "checking '$file'...\n" if scalar @ARGV > 1;
 
+    -f $file or die "No such file: $file";
+
     open my $fh, '<', $file or die $!;
 
     # Architecture of this file.