X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst.pm;h=1b3dfaf6d32e6e005b6920344d8848ff8d85344d;hb=9fe15721d5ea7746cd462e1f1dc36c270c065f5d;hp=d8641265bef6e5d9d579e447fe5665da081f70b8;hpb=532f0516947cf047368e91150ca2ab1cfd4c1e64;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index d864126..1b3dfaf 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -2595,11 +2595,17 @@ sub setup_engine {
 
     if ($ENV{MOD_PERL}) {
         # FIXME - Immutable
-        $class->meta->add_method(handler => sub { shift->handle_request(@_) });
+        $class->meta->add_method(handler => sub {
+            my $r = shift;
+            my $app = $class->psgi_app;
+            use Plack::Handler::Apache2;
+            Plack::Handler::Apache2->call_app($r, $app);
+        });
     }
 
     $class->engine( $engine->new );
     $class->psgi_app( $class->engine->build_psgi_app($class) );
+
 }
 
 =head2 $c->setup_home