my $self = shift;
# Reconstruct the request headers
- $self->headers_in(HTTP::Headers->new);
- my %headers = $self->{ar}->headers_in;
+ $self->headers_in(Maypole::Headers->new);
+ my %headers;
+ if (APACHE2) { %headers = %{$self->{ar}->headers_in};
+ } else { %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($_));
}