Bug 643890: Use Apache's ErrorLog when using mod_perl/vhosts

r=mkanat, a=mkanat

diff --git a/mod_perl.pl b/mod_perl.pl
index 54f14a8faa02047003d5d0a63884f3c4541561ff..460e6216bb868b4fe289b1130de751b594f0018d 100644 (file)
--- a/mod_perl.pl
+++ b/mod_perl.pl
@@ -35,6 +35,7 @@ use lib Bugzilla::Constants::bz_locations()->{'ext_libpath'};
 # startup, so we always specify () after using any module in this
 # file.
 
+use Apache2::Log ();
 use Apache2::ServerUtil;
 use ModPerl::RegistryLoader ();
 use File::Basename ();
@@ -49,6 +50,10 @@ use Bugzilla::Extension ();
 use Bugzilla::Install::Requirements ();
 use Bugzilla::Util ();
 
+# Make warnings go to the virtual host's log and not the main
+# server log.
+BEGIN { *CORE::GLOBAL::warn = \&Apache2::ServerRec::warn; }
+
 # Pre-compile the CGI.pm methods that we're going to use.
 Bugzilla::CGI->compile(qw(:cgi :push));