X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FApache%2FMVC.pm;fp=lib%2FApache%2FMVC.pm;h=a79c6113f2f4a7932cb511929ed5c354adafc1de;hb=50801f50404838954238fb4a87d4df5dda50cd76;hp=dea64fffa161648d0cf4abb0c19b523c461e78f6;hpb=ac7eb8f3a1780223d5376e623ab90af3c8f83f04;p=maypole.git diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm index dea64ff..a79c611 100644 --- 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 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); }