Bug 446327 â\80\93 WebService faultCode is a string when a script "die"s

Patch By Max Kanat-Alexander <mkanat@bugzilla.org> r=dkl, a=mkanat

diff --git a/xmlrpc.cgi b/xmlrpc.cgi
index 7682b20f547f60cf685774ac96001879819da5a3..924610a0b251465c4c38b2867146b4c4e2c7ad2e 100755 (executable)
--- a/xmlrpc.cgi
+++ b/xmlrpc.cgi
@@ -21,6 +21,7 @@ use lib qw(.);
 use Bugzilla;
 use Bugzilla::Constants;
 use Bugzilla::Hook;
+use Bugzilla::WebService::Constants;
 
 # Use an eval here so that runtests.pl accepts this script even if SOAP-Lite
 # is not installed.
@@ -29,6 +30,10 @@ eval 'use XMLRPC::Transport::HTTP;
 $@ && ThrowCodeError('soap_not_installed');
 
 Bugzilla->usage_mode(Bugzilla::Constants::USAGE_MODE_WEBSERVICE);
+local $SOAP::Constants::FAULT_SERVER = ERROR_UNKNOWN_FATAL;
+# The line above is used, this one is ignored, but SOAP::Lite
+# might start using this constant (the correct one) for XML-RPC someday.
+local $XMLRPC::Constants::FAULT_SERVER = ERROR_UNKNOWN_FATAL;
 
 my %hook_dispatch;
 Bugzilla::Hook::process('webservice', { dispatch => \%hook_dispatch });