Item11267: fix construction of perl regex

foswiki · Aug 25, 2014 · 1d4095e · 1d4095e
1 parent 82b3927
commit 1d4095e
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/core/pseudo-install.pl b/core/pseudo-install.pl
@@ -1581,8 +1581,11 @@ sub merge_gitignore {
                 my $i = 0;
 
                 while ( !$matched && $i < $nmatch_rules ) {
-                    my @parts = split( /\*/, $match_rules[$i] );
-                    my $regex = qr/^\Q/ . join( qr/\E.*\Q/, @parts ) . qr/\E$/;
+                    my $regex = '^'
+                      . join( '.*',
+                        map { quotemeta($_) } split( /\*/, $match_rules[$i] ) )
+                      . '$';
+                    $regex = qr/$regex/;
 
                     $i += 1;
                     $matched = ( $file =~ $regex );