[Catalyst] mod_perl2

[Alan Humphrey]

All -

 

In case someone else needs it, here's what I had to do to get mod_perl2
to work.  I'm not familiar enough with mod_perl to know whether this is
a general solution, but, so far, it's working for me.

 

Mod_perl version 2 RC6 (1.999023)

Catalyst version 5.10

 

Changes:

 

In MP20.pm

 

use strict;

use base 'Catalyst::Engine::Apache';

+ use mod_perl2;

use Apache2::Connection  ();

 

In Apache.pm

 

 +   if ($c->apache->param){

      $c->apache->param->do( sub {

                                           my ( $field, $value ) = @_;

                                           push( @params, $field, $value
);

                                           return 1;

                                         }

                                       );

 

      $c->req->_assign_values( $c->req->parameters, \@params );

 + }

 

 

- Alan

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.rawmode.org/pipermail/catalyst/attachments/20050516/4999d829/attachment.htm