Bug 600810: Use XMLRPC::Transport::HTTP:Apache as base class under mod_perl

r/a=mkanat

diff --git a/Bugzilla/WebService/Server/XMLRPC.pm b/Bugzilla/WebService/Server/XMLRPC.pm
index 18757c0ecfa7411cd15a97c8c9790f5a9304da47..b74d0eebdb35b994a225a2ae22f4a7fc25e9905a 100644 (file)
--- a/Bugzilla/WebService/Server/XMLRPC.pm
+++ b/Bugzilla/WebService/Server/XMLRPC.pm
@@ -23,7 +23,11 @@ package Bugzilla::WebService::Server::XMLRPC;
 use strict;
 use XMLRPC::Transport::HTTP;
 use Bugzilla::WebService::Server;
-our @ISA = qw(XMLRPC::Transport::HTTP::CGI Bugzilla::WebService::Server);
+if ($ENV{MOD_PERL}) {
+    our @ISA = qw(XMLRPC::Transport::HTTP::Apache Bugzilla::WebService::Server);
+} else {
+    our @ISA = qw(XMLRPC::Transport::HTTP::CGI Bugzilla::WebService::Server);
+}
 
 use Bugzilla::WebService::Constants;