diff options
| -rw-r--r-- | t/Support/Files.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/t/Support/Files.pm b/t/Support/Files.pm index ea1f5301a..c31cd75c4 100644 --- a/t/Support/Files.pm +++ b/t/Support/Files.pm @@ -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; } |