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

.cgi.

diff --git a/t/Support/Files.pm b/t/Support/Files.pm
index ea1f5301a6a4f65ababd6491470b1635286981a2..c31cd75c40f1b4f7f141ddeede3f1c271933a8e5 100644 (file)
--- 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;
 }