X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lib%2FApache%2FMVC.pm;h=4623b9f607dbaf3c6fb2d0f47876166ed7b9d111;hb=12d8a77a713d5ed4f08414e5f34e96d45f60e2d3;hp=3ee8541a3882a58cb9b2a9c10bf18aacf64afc2d;hpb=3239e23cfde1714927e043e6e72dc38d7b20e1c3;p=maypole.git

diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm
index 3ee8541..4623b9f 100644
--- a/lib/Apache/MVC.pm
+++ b/lib/Apache/MVC.pm
@@ -82,7 +82,7 @@ functionality. See L<Maypole> for these:
 
 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);
 }
 
@@ -101,7 +101,6 @@ sub parse_location {
     for (keys %headers) {
         $self->headers_in->set($_, $headers{$_});
     }
-
     my $path = $self->ar->uri;
     my $loc  = $self->ar->location;
     {