From: Simon Ruderich <simon@ruderich.org>
Date: Thu, 15 Mar 2012 22:54:41 +0000 (+0100)
Subject: Store regex for compiler commands in a global variable.
X-Git-Tag: 0.01~118
X-Git-Url: https://ruderich.org/simon/gitweb/?p=blhc%2Fblhc.git;a=commitdiff_plain;h=b7365f756ee0d81d1d5b7286f09c9dfc5b6fe892

Store regex for compiler commands in a global variable.
---

diff --git a/bin/blhc b/bin/blhc
index d966f93..6fb0f21 100755
--- a/bin/blhc
+++ b/bin/blhc
@@ -115,6 +115,9 @@ sub pic_pie_conflict {
 
 # CONSTANTS/VARIABLES
 
+# Regex to catch compiler commands.
+my $cc_regex = qr/((?<!\.)cc|(x86_64-linux-gnu-)?gcc|g\+\+|c\+\+)/;
+
 # Regex to catch (GCC) compiler warnings.
 my $warning_regex = qr/^(.+?):([0-9]+):[0-9]+: warning: (.+?) \[(.+?)\]$/;
 
@@ -242,7 +245,7 @@ while (my $line = <>) {
 
         } else {
             # Ignore lines with no compiler commands.
-            next if $line !~ /\b((?<!\.)cc|gcc|g\+\+|c\+\+)(\s|\\)/;
+            next if $line !~ /\b$cc_regex(\s|\\)/;
 
             # Ignore false positives.
             #
@@ -286,7 +289,6 @@ foreach my $line (@input) {
     # Ignore false positives.
     #
     # ./configure summary.
-    my $cc_regex = qr/(cc|(x86_64-linux-gnu-)?gcc|g\+\+|c\+\+)/;
     next if $line =~ /^\s*(C|c)ompiler[\s.]*:\s+$cc_regex(\s-std=[a-z0-9:+]+)?\s*$/
             or $line =~ /^\s*- (CC|CXX)\s*=\s*$cc_regex\s*$/
             or $line =~ /^\s*-- Check for working (C|CXX) compiler: /;