X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FApache%2FMVC.pm;fp=lib%2FApache%2FMVC.pm;h=dea64fffa161648d0cf4abb0c19b523c461e78f6;hb=88403615773aa8c4a86006b5d41577e586d1c0ec;hp=696ab84847a75987f1ce785728f1ae1eecce673c;hpb=8bee7ab27f76f2b3e8a65113ded4d439ec4949fe;p=maypole.git diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm index 696ab84..dea64ff 100644 --- a/lib/Apache/MVC.pm +++ b/lib/Apache/MVC.pm @@ -127,6 +127,7 @@ sub parse_location { # Reconstruct the request headers $self->headers_in(Maypole::Headers->new); + my %headers; if ($MODPERL2) { %headers = %{$self->ar->headers_in}; } else { %headers = $self->ar->headers_in; } @@ -134,6 +135,8 @@ sub parse_location { $self->headers_in->set($_, $headers{$_}); } + $self->preprocess_location(); + my $path = $self->ar->uri; my $base = URI->new($self->config->uri_base); my $loc = $base->path;