missed two places where getStatus is called in list context. fixed.
This commit is contained in:
parent
c5e656c434
commit
defef0767d
1 changed files with 6 additions and 4 deletions
|
|
@ -211,8 +211,9 @@ sub sendHeader {
|
|||
if ($self->{_http}{filename}) {
|
||||
$request->headers_out->set('Content-Disposition' => qq!attachment; filename="$self->{_http}{filename}"!);
|
||||
}
|
||||
$request->status($self->getStatus());
|
||||
$request->status_line($self->getStatus().' '.$self->{_http}{statusDescription});
|
||||
my ($status, $description) = $self->getStatus();
|
||||
$request->status($status);
|
||||
$request->status_line(join ' ', $status, $description);
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
|
@ -223,8 +224,9 @@ sub _sendMinimalHeader {
|
|||
$request->content_type('text/html; charset=UTF-8');
|
||||
$request->headers_out->set('Cache-Control' => 'private');
|
||||
$request->no_cache(1);
|
||||
$request->status($self->getStatus());
|
||||
$request->status_line($self->getStatus().' '.$self->{_http}{statusDescription});
|
||||
my ($status, $description) = $self->getStatus();
|
||||
$request->status($status);
|
||||
$request->status_line(join ' ', $status, $description);
|
||||
return;
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue