sub get_request {
my ($self, $r) = @_;
- my $ar = (APACHE2) ? Apache2::Request->new($r) : Apache::Request->new($r);
+ my $ar = (APACHE2) ? Apache2::Request->new($r) : Apache::Request->instance($r);
$self->ar($ar);
}
for (keys %headers) {
$self->headers_in->set($_, $headers{$_});
}
-
my $path = $self->ar->uri;
my $loc = $self->ar->location;
{