From: Max Kanat-Alexander <mkanat@bugzilla.org>
Date: Mon, 15 Nov 2010 07:28:13 +0000 (-0800)
Subject: Bug 599552: Clean up mod_perl.pl, and make it use the same CGI.pm compile
X-Git-Tag: bugzilla-4.1.1~148
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=41c2692f2c83f2e96f396fb9055c8f321f363a6d;p=thirdparty%2Fbugzilla.git

Bug 599552: Clean up mod_perl.pl, and make it use the same CGI.pm compile
options as mod_cgi does.
r=glob, a=mkanat
---

diff --git a/mod_perl.pl b/mod_perl.pl
index 32fe82ccfe..15dec263ac 100644
--- a/mod_perl.pl
+++ b/mod_perl.pl
@@ -16,7 +16,6 @@
 # Contributor(s): Max Kanat-Alexander <mkanat@bugzilla.org>
 
 package Bugzilla::ModPerl;
-
 use strict;
 
 # If you have an Apache2::Status handler in your Apache configuration,
@@ -30,22 +29,21 @@ use strict;
 
 use Apache2::ServerUtil;
 use ModPerl::RegistryLoader ();
-use CGI ();
-CGI->compile(qw(:cgi -no_xhtml -oldstyle_urls :private_tempfiles
-                :unique_headers SERVER_PUSH :push));
 use File::Basename ();
-use Template::Config ();
-Template::Config->preload();
 
+# This loads most of our modules.
 use Bugzilla ();
-use Bugzilla::Constants ();
+# Loading Bugzilla.pm doesn't load this, though, and we want it preloaded.
+use Bugzilla::BugMail ();
 use Bugzilla::CGI ();
+use Bugzilla::Constants ();
 use Bugzilla::Extension ();
 use Bugzilla::Install::Requirements ();
-use Bugzilla::Mailer ();
-use Bugzilla::Template ();
 use Bugzilla::Util ();
 
+# Pre-compile the CGI.pm methods that we're going to use.
+Bugzilla::CGI->compile(qw(:cgi :push));
+
 my ($sizelimit, $maxrequests) = ('', '');
 if (Bugzilla::Constants::ON_WINDOWS) {
     $maxrequests = "MaxRequestsPerChild 25";