X-Git-Url: https://ruderich.org/simon/gitweb/?a=blobdiff_plain;f=bin%2Fblhc;h=44a698683dc20a65462927a880ec83b1f714cb9c;hb=060422c95a34e2a42161f42fc71c925a8c8d0570;hp=e17c377d92f5160355b5ee082d9d9fbc1f2d3070;hpb=273f7a78980493d607823c32e364e4efe901c879;p=blhc%2Fblhc.git

diff --git a/bin/blhc b/bin/blhc
index e17c377..44a6986 100755
--- a/bin/blhc
+++ b/bin/blhc
@@ -48,7 +48,7 @@ my @source_preprocess_compile_cpp = (
     # C++
     qw( cc cp cxx cpp CPP c++ C ),
     # Objective-C++
-    qw( mm Mr),
+    qw( mm M ),
 );
 my @source_preprocess_compile = (
     # C
@@ -62,7 +62,7 @@ my @source_preprocess_compile = (
 );
 my @source_preprocess_no_compile = (
     # Assembly
-    qw( s ),
+    qw( S sx ),
 );
 my @source_preprocess = (
     @source_preprocess_compile,
@@ -87,7 +87,7 @@ my @source_no_preprocess_compile = (
 );
 my @source_no_preprocess_no_compile = (
     # Assembly
-    qw( S sx ),
+    qw( s ),
 );
 my @source_no_preprocess = (
     @source_no_preprocess_compile,
@@ -441,7 +441,8 @@ if (not Getopt::Long::GetOptions(
             'color'    => \$option_color,
             'arch=s'   => \$option_arch,
             'buildd'   => \$option_buildd,
-        )) {
+        )
+        or scalar @ARGV == 0) {
     require Pod::Usage;
     Pod::Usage::pod2usage(2);
 }
@@ -964,9 +965,18 @@ changes are in effect:
 
 =item
 
+Print tags instead of normal warnings, see README file for a list of possible
+tags.
+
+=item
+
 Don't check hardening flags in old log files (if dpkg-dev << 1.16.1 is
 detected).
 
+=item
+
+Don't require Term::ANSIColor.
+
 =back
 
 =item B<--color>