From 79c7d0e961d9adf2c3a0459594745afb41b19e4c Mon Sep 17 00:00:00 2001
From: "lpsolit%gmail.com" <>
Date: Sat, 19 Aug 2006 01:29:41 +0000
Subject: =?UTF-8?q?Bug=20349198:=20001compile.t=20must=20not=20compile=20m?=
 =?UTF-8?q?od=5Fperl.pl=20-=20Patch=20by=20Fr=C3=A9d=C3=A9ric=20Buclin=20<?=
 =?UTF-8?q?LpSolit@gmail.com>=20r=3Dmkanat=20a=3Dmyk?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 t/001compile.t | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 't/001compile.t')

diff --git a/t/001compile.t b/t/001compile.t
index ebfc4a5d8..7d0bc0181 100644
--- a/t/001compile.t
+++ b/t/001compile.t
@@ -65,6 +65,12 @@ foreach my $file (@testitems) {
     $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
     next if (!$file); # skip null entries
 
+    # Skip mod_perl.pl in all cases. It doesn't compile correctly from the command line.
+    if ($file eq 'mod_perl.pl') {
+        ok(1, "Skipping mod_perl.pl");
+        next;
+    }
+
     # Check that we have a DBI module to support the DB, if this is a database
     # module (but not Schema)
     if ($file =~ m#Bugzilla/DB/([^/]+)\.pm$# && $file ne "Bugzilla/DB/Schema.pm") {
-- 
cgit v1.2.1