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

.cgi.

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