X-Git-Url: https://ruderich.org/simon/gitweb/?a=blobdiff_plain;f=bin%2Fblhc;h=7416df6f69e6632263bda34ceff5994cf1dd905f;hb=309aba1b1f578a2824d91b9e1b93c045afe38e8f;hp=0fbf4c9a2de11c12192b184cdb749a2e36152c25;hpb=e9f80391175f1cdaba372f2c8fad2f861e9daaeb;p=blhc%2Fblhc.git

diff --git a/bin/blhc b/bin/blhc
index 0fbf4c9..7416df6 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);
 }
@@ -622,7 +623,6 @@ FILE: foreach my $file (@ARGV) {
                 next;
             }
 
-            if (not $continuation) {
                 # Use the complete line if a line continuation occurred.
                 if (defined $complete_line) {
                     $line = $complete_line;
@@ -655,7 +655,6 @@ FILE: foreach my $file (@ARGV) {
                 $harden_bindnow = 1 if any_flags_used($line, @def_ldflags_bindnow);
 
                 push @input, $line;
-            }
         }
     }