X-Git-Url: https://ruderich.org/simon/gitweb/?p=blhc%2Fblhc.git;a=blobdiff_plain;f=bin%2Fblhc;h=c7457d2c79c1f4780741d60e5cc25725794fc2c4;hp=cfe49d2a3335527a1dcca61fbe80ff264b4640b5;hb=19728cda633b5ab8e207a95bb22c5b526bd239c4;hpb=4ab50053d9969464c5002db66e135bcfb92bd625

diff --git a/bin/blhc b/bin/blhc
index cfe49d2..c7457d2 100755
--- a/bin/blhc
+++ b/bin/blhc
@@ -500,15 +500,17 @@ sub compile_flag_regexp {
 
     my @result = ();
     foreach my $flag (@flags) {
+        # Compile flag regexp for faster execution.
+        my $regex = qr/\s$flag(?:\s|\\)/;
+
         # Store flag name in replacement string for correct flags in messages
         # with qr//ed flag regexps.
-        $flag_renames_ref->{qr/\s$flag(?:\s|\\)/}
+        $flag_renames_ref->{$regex}
             = (exists $flag_renames_ref->{$flag})
                 ? $flag_renames_ref->{$flag}
                 : $flag;
 
-        # Compile flag regexp for faster execution.
-        push @result, qr/\s$flag(?:\s|\\)/;
+        push @result, $regex;
     }
     return @result;
 }
@@ -517,14 +519,12 @@ sub compile_flag_regexp {
 sub extension_found {
     my ($extensions_ref, @extensions) = @_;
 
-    my $found = 0;
     foreach my $extension (@extensions) {
         if (exists $extensions_ref->{$extension}) {
-            $found = 1;
-            last;
+            return 1;
         }
     }
-    return $found;
+    return 0;
 }