From 35f352200dafc39cdb587c4166de36e52f04a181 Mon Sep 17 00:00:00 2001
From: "zach%zachlipton.com" <>
Date: Sat, 6 Oct 2001 10:49:06 +0000
Subject: Fixing issue where excluded files aren't excluded if they end in .pl
 or .cgi.

---
 t/Support/Files.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 't/Support/Files.pm')

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;
 }
 
-- 
cgit v1.2.3-24-g4f1b