diff options
| -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; } |