Move compile out of loop

mdom · Dec 15, 2016 · 3533f9b · 3533f9b
1 parent 8e71ebf
commit 3533f9b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bin/squaretag b/bin/squaretag
@@ -248,6 +248,7 @@ sub find_untagged {
 sub search_tags {
     my ( $tag_spec, @files ) = @_;
     my @found;
+    my $check = compile_search($tag_spec);
   FILE:
     for my $file (@files) {
         my ( $base, $tags, $ext ) = split_file($file);
@@ -258,7 +259,6 @@ sub search_tags {
             my ( $key, $val ) = split( /=/, $tag, 2 );
             $tags{$key} = $val;
         }
-        my $check = compile_search($tag_spec);
         push @found, $file if $check->( \%tags );
     }
     return \@found;