From: John Napiorkowski <jjnapiork@cpan.org>
Date: Thu, 15 Jul 2010 15:19:07 +0000 (+0000)
Subject: works but totally wrong
X-Git-Tag: 5.89000~25
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=9fe15721d5ea7746cd462e1f1dc36c270c065f5d

works but totally wrong
---

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