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 dea64fffa161648d0cf4abb0c19b523c461e78f6..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);
 }