my $self = shift;
# Reconstruct the request headers
- $self->headers_in(HTTP::Headers->new);
+ $self->headers_in(Maypole::Headers->new);
my %headers = $self->{ar}->headers_in;
for (keys %headers) {
$self->headers_in->set($_, $headers{$_});
);
foreach ($r->headers_out->field_names) {
- next if /^Content-/;
+ next if /^Content-(Type|Length)/;
$r->{ar}->headers_out->set($_ => $r->headers_out->get($_));
}