summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--mod_perl.pl9
1 files changed, 8 insertions, 1 deletions
diff --git a/mod_perl.pl b/mod_perl.pl
index 20b9746f3..1f4593f00 100644
--- a/mod_perl.pl
+++ b/mod_perl.pl
@@ -115,6 +115,7 @@ use strict;
use parent qw(ModPerl::Registry);
use Bugzilla;
+use Bugzilla::Constants qw(USAGE_MODE_REST);
sub handler : method {
my $class = shift;
@@ -132,7 +133,13 @@ sub handler : method {
use warnings;
Bugzilla::init_page();
- return $class->SUPER::handler(@_);
+ my $result = $class->SUPER::handler(@_);
+
+ # When returning data from the REST api, tell Apache not to append its
+ # error html documents to the response.
+ return Bugzilla->usage_mode == USAGE_MODE_REST
+ ? Apache2::Const::OK
+ : $result;
}