From: Sebastian Riedel <sri@labs.kraih.com>
Date: Fri, 15 Apr 2005 21:10:12 +0000 (+0000)
Subject: Fixed MP20 stuff
X-Git-Tag: 5.7099_04~1510
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=13cafd1af736071eca3b41bd520e29416e2aa68d

Fixed MP20 stuff
---

diff --git a/lib/Catalyst/Engine/Apache.pm b/lib/Catalyst/Engine/Apache.pm
index a968549..a683631 100644
--- a/lib/Catalyst/Engine/Apache.pm
+++ b/lib/Catalyst/Engine/Apache.pm
@@ -82,7 +82,7 @@ sub prepare_parameters {
 
 =cut
 
-# XXX needs fixing, only work with <Location> directive, 
+# XXX needs fixing, only work with <Location> directive,
 # not <Directory> directive
 sub prepare_path {
     my $c = shift;
@@ -105,7 +105,9 @@ sub prepare_path {
 
 sub prepare_request {
     my ( $c, $r ) = @_;
-    $c->apache( Apache::Request->new($r) );
+    $c->apache( $ENV{MOD_PERL_API_VERSION} == 2
+        ? Apache2::Request->new($r)
+        : Apache::Request->new($r) );
 }
 
 =item $c->run