From: Simon Ruderich <simon@ruderich.org>
Date: Wed, 14 Aug 2013 13:17:08 +0000 (+0200)
Subject: Simplify compile_flag_regexp().
X-Git-Tag: 0.05~25
X-Git-Url: https://ruderich.org/simon/gitweb/?a=commitdiff_plain;h=cb96ed22d2d46c34a1a06fea374eeb0c6cf0269b;p=blhc%2Fblhc.git

Simplify compile_flag_regexp().
---

diff --git a/bin/blhc b/bin/blhc
index cfe49d2..3abb979 100755
--- 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;
 }