From b20d770736d2c21816ad52a0da6ae3209e074941 Mon Sep 17 00:00:00 2001
From: "zach%zachlipton.com"
 <zach%zachlipton.com@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Sat, 6 Oct 2001 03:49:06 +0000
Subject: [PATCH] Fixing issue where excluded files aren't excluded if they end
 in .pl or .cgi.

git-svn-id: svn://10.0.0.236/trunk@104720 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/webtools/bugzilla/t/Support/Files.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/mozilla/webtools/bugzilla/t/Support/Files.pm b/mozilla/webtools/bugzilla/t/Support/Files.pm
index ea1f5301a6a..c31cd75c40f 100644
--- a/mozilla/webtools/bugzilla/t/Support/Files.pm
+++ b/mozilla/webtools/bugzilla/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;
 }