From eb9af16f33653a16d11a44fdd84b3c4386633be2 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Fr=C3=A9d=C3=A9ric=20Buclin?= <LpSolit@gmail.com>
Date: Wed, 7 Jan 2015 14:34:45 +0100
Subject: [PATCH] Bug 1113147: Revert the hack from bug 1108809 and blacklist
 SOAP::Lite 1.12 r=dkl a=glob

---
 Bugzilla/Install/Requirements.pm     | 2 ++
 Bugzilla/WebService/Server/XMLRPC.pm | 7 -------
 2 files changed, 2 insertions(+), 7 deletions(-)

diff --git a/Bugzilla/Install/Requirements.pm b/Bugzilla/Install/Requirements.pm
index 7f8b197353..b0884cc37d 100644
--- a/Bugzilla/Install/Requirements.pm
+++ b/Bugzilla/Install/Requirements.pm
@@ -280,6 +280,8 @@ sub OPTIONAL_MODULES {
         # Fixes various bugs, including 542931 and 552353 + stops
         # throwing warnings with Perl 5.12.
         version => '0.712',
+        # SOAP::Transport::HTTP 1.12 is bogus.
+        blacklist => ['^1\.12$'],
         feature => ['xmlrpc'],
     },
     # Since SOAP::Lite 1.0, XMLRPC::Lite is no longer included
diff --git a/Bugzilla/WebService/Server/XMLRPC.pm b/Bugzilla/WebService/Server/XMLRPC.pm
index de9a5a97bd..56b31ffefe 100644
--- a/Bugzilla/WebService/Server/XMLRPC.pm
+++ b/Bugzilla/WebService/Server/XMLRPC.pm
@@ -47,13 +47,6 @@ BEGIN {
     };
 }
 
-sub new {
-    my $class = shift;
-    my $self = $class->SUPER::new(@_);
-    $self->{debug_logger} = sub {};
-    return $self;
-}
-
 sub initialize {
     my $self = shift;
     my %retval = $self->SUPER::initialize(@_);
-- 
2.47.2