Simplify compile_flag_regexp().

[blhc/blhc.git] / bin / blhc

diff --git a/bin/blhc b/bin/blhc
index cfe49d2a3335527a1dcca61fbe80ff264b4640b5..3abb9791e189b0e3f43139de7d0182218469414d 100755 (executable)
--- a/bin/blhc
+++ b/bin/blhc
@@ -517,14 +517,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;
 }