[Catalyst-commits] r13408 - Catalyst-Runtime/5.80/branches/psgi/lib

[jnapiorkowski at dev.catalyst.perl.org]

Author: jnapiorkowski
Date: 2010-07-15 16:19:07 +0100 (Thu, 15 Jul 2010)
New Revision: 13408

Modified:
   Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst.pm
Log:
works but totally wrong

Modified: Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst.pm	2010-07-09 09:40:44 UTC (rev 13407)
+++ Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst.pm	2010-07-15 15:19:07 UTC (rev 13408)
@@ -2595,11 +2595,17 @@
 
     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