diff options
| author | mkanat%bugzilla.org <> | 2008-07-24 23:01:08 +0200 |
|---|---|---|
| committer | mkanat%bugzilla.org <> | 2008-07-24 23:01:08 +0200 |
| commit | 949984314ceb7f076ed991c2648585a91df7fdeb (patch) | |
| tree | 5f68cb225c7e664d6f45a5d096fa5dd174b7e169 | |
| parent | 9f35bd3ea49acb8a372fb72a5829d68bf69bb857 (diff) | |
| download | bugzilla-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.pm | 6 |
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; } |