summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authormkanat%bugzilla.org <>2008-07-24 23:01:08 +0200
committermkanat%bugzilla.org <>2008-07-24 23:01:08 +0200
commit949984314ceb7f076ed991c2648585a91df7fdeb (patch)
tree5f68cb225c7e664d6f45a5d096fa5dd174b7e169
parent9f35bd3ea49acb8a372fb72a5829d68bf69bb857 (diff)
downloadbugzilla-949984314ceb7f076ed991c2648585a91df7fdeb.tar.gz
bugzilla-949984314ceb7f076ed991c2648585a91df7fdeb.tar.xz
Bug 445104: ssl redirects come with a 200 OK HTTP code on mod_perl
Patch By Max Kanat-Alexander <mkanat@bugzilla.org> r=dkl, a=mkanat
-rw-r--r--Bugzilla/CGI.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/Bugzilla/CGI.pm b/Bugzilla/CGI.pm
index 4c62ab3ac..0de89408e 100644
--- a/Bugzilla/CGI.pm
+++ b/Bugzilla/CGI.pm
@@ -307,7 +307,11 @@ sub require_https {
$url = $self->self_url;
$url =~ s/^http:/https:/i;
}
- print $self->redirect(-location => $url, -status => $status). "\n";
+ print $self->redirect(-location => $url, -status => $status);
+ # When using XML-RPC with mod_perl, we need the headers sent immediately.
+ # We used to do this by appending a newline to $self->redirect, but
+ # that breaks normal web browser redirects.
+ $self->r->rflush if $ENV{MOD_PERL};
exit;
}