fix to set/send http headers only once per request/response.

This commit is contained in:
Matthew Wilson 2006-05-12 11:18:04 +00:00
parent b11cd4afa1
commit 4963c365e5

View file

@ -176,6 +176,7 @@ sub sendHeader {
return undef if ($self->{_http}{noHeader});
my $request = $self->session->request;
return undef unless $request;
$self->{_http}{noHeader} = 1;
my %params;
if ($self->isRedirect()) {
$request->headers_out->set(Location => $self->{_http}{location});