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

.cgi.
This commit is contained in:
zach%zachlipton.com 2001-10-06 03:49:06 +00:00
parent ad816e444f
commit 8d4abc6e4a

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;
}