Print file name when multiple files are checked.

[blhc/blhc.git] / bin / blhc

diff --git a/bin/blhc b/bin/blhc
index eb803248d784514aff2143a3c4835d475daa25db..d6fb8511e47cb5abaccd18f2ad63ad509db60bea 100755 (executable)
--- a/bin/blhc
+++ b/bin/blhc
@@ -473,6 +473,8 @@ if ($option_all) {
 my $exit = 0;
 
 FILE: foreach my $file (@ARGV) {
+    print "checking '$file'...\n" if scalar @ARGV > 1;
+
     open my $fh, '<', $file or die "$!: $file";
 
     # Architecture of this file.