Fixing issue where excluded files aren't excluded if they end in .pl or

.cgi.


git-svn-id: svn://10.0.0.236/trunk@104720 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
zach%zachlipton.com
2001-10-06 03:49:06 +00:00
parent 09d46c88ee
commit b20d770736

View File

@@ -41,6 +41,11 @@ $file = '*';
sub isTestingFile {
my ($file) = @_;
my $exclude;
foreach $exclude (@exclude_files) {
if ($file eq $exclude) { return undef; } # get rid of excluded files.
}
if ($file =~ /\.cgi$|\.pl$/) {
return 1;
}
@@ -48,10 +53,6 @@ sub isTestingFile {
foreach $additional (@additional_files) {
if ($file eq $additional) { return 1; }
}
my $exclude;
foreach $exclude (@exclude_files) {
if ($file eq $exclude) { return undef; } # get rid of excluded files.
}
return undef;
}