rest of bug 201520, r=cyeh. using $regexp exposed an unterminated regexp match

for [^/] when % is used, which matches any string that has any non-/ characters
in it, rather than *no* / characters before the end of the string.


git-svn-id: svn://10.0.0.236/trunk@141013 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
leaf%mozilla.org
2003-04-11 00:16:05 +00:00
parent b9ea32befc
commit 063b584e5e

View File

@@ -999,7 +999,7 @@ sub FileMatches {
my ($pattern, $name) = (@_);
my $regexp = $pattern;
if ($pattern =~ /\%$/) {
$regexp =~ s:\%$:[^/]*:;
$regexp =~ s:\%$:[^/]*\$:;
} elsif ($pattern =~ /\*$/) {
$regexp =~ s:\*$:.*:;
}