Bug 486073: Make the JSON-RPC WebService throw errors properly under mod_perl

r=dkl, a=mkanat

diff --git a/Bugzilla/Error.pm b/Bugzilla/Error.pm
index 4e312b3edf0e6c9417bc2a5b814abeffe08b82fc..8e3710129771e0802d3d69649de3a02d192f6d1c 100644 (file)
--- a/Bugzilla/Error.pm
+++ b/Bugzilla/Error.pm
@@ -125,7 +125,9 @@ sub _throw_error {
                 # the internal JSON::RPC error codes.
                 $server->raise_error(code    => 100000 + $code,
                                      message => $message);
-                $server->response($server->error_response_header);
+                # We die with no message. JSON::RPC checks raise_error before
+                # it checks $@, so it returns the proper error.
+                die;
             }
         }
     }