Use /x to make regex more readable.

[blhc/blhc.git] / bin / blhc

diff --git a/bin/blhc b/bin/blhc
index a884e11407188fcf0e679416e695150cbf4f4b08..527a09866e59214cdb620e007c8f74796e94084b 100755 (executable)
--- a/bin/blhc
+++ b/bin/blhc
@@ -288,6 +288,9 @@ while (my $line = <>) {
     # Also strip '\0xf' (delete previous character), used by Elink's build
     # system.
     $line =~ s/\x0f//g;
+    # And "ESC(B" which seems to be used on armhf and hurd (not sure what it
+    # does).
+    $line =~ s/\033\(B//g;
 
     # Check if this line indicates a non verbose build.
     my $non_verbose = is_non_verbose_build($line);
@@ -332,7 +335,11 @@ while (my $line = <>) {
             #
             # `./configure` output.
             next if not $non_verbose and $line =~ /^checking /;
-            next if $line =~ /^\s*(?:C|c)ompiler[\s.]*:\s+$cc_regex(?:\s-std=[a-z0-9:+]+)?\s*$/
+            next if $line =~ /^\s*(?:C\s+)?
+                               (?:C|c)ompiler[\s.]*:\s+
+                               $cc_regex
+                               (?:\s-std=[a-z0-9:+]+)?\s*$
+                             /x
                     or $line =~ /^\s*(?:- )?(?:CC|CXX)\s*=\s*$cc_regex\s*$/
                     or $line =~ /^\s*-- Check for working (?:C|CXX) compiler: /
                     or $line =~ /^\s*(?:echo )?Using [A-Z_]+\s*=\s*/;