-charset => $r->{document_encoding},
-content_length => do { use bytes; length $r->{output} },
);
- foreach ($r->headers_out->header_field_names) {
- next if /^Content-/;
+ foreach ($r->headers_out->field_names) {
+ next if /^Content-(Type|Length)/;
$headers{"-$_"} = $r->headers_out->get($_);
}