added new attribute to Maypole::Config - request_options

[maypole.git] / lib / Apache / MVC.pm

diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm
index 696ab84847a75987f1ce785728f1ae1eecce673c..a79c6113f2f4a7932cb511929ed5c354adafc1de 100644 (file)
--- a/lib/Apache/MVC.pm
+++ b/lib/Apache/MVC.pm
@@ -1,6 +1,6 @@
 package Apache::MVC;
 
-our $VERSION = '2.11';
+our $VERSION = '2.12';
 
 use strict;
 use warnings;
@@ -93,11 +93,12 @@ functionality. See L<Maypole> for these:
 
 sub get_request {
     my ($self, $r) = @_;
+    my $request_options = $self->config->request_options || {};
     my $ar;
     if ($MODPERL2) {
-       $ar = eval {require Apache2::Request} ? Apache2::Request->new($r) : $r;
+       $ar = eval {require Apache2::Request} ? Apache2::Request->new($r,%{$request_options}) : $r;
        }
-    else { $ar = Apache::Request->instance($r); }
+    else { $ar = Apache::Request->instance($r,%{$request_options}); }
     $self->ar($ar);
 }
 
@@ -127,6 +128,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 +136,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;