I’ve made some additions to Bryar 2.6 to allow it to work in Mod_Perl 2.0.
Without these changes (see diffs below), you will see random caching problems
because it loads Frontend/CGI.pm instead of Frontend/Mod_Perl.pm.

Bryar/Config.pm:

44c44
+ $ENV{’GATEWAY_INTERFACE’} =~ /^CGI-Perl\// or exists $ENV{MOD_PERL} and $ENV{MOD_PERL} =~ /^mod_perl\//)
—
- $ENV{’GATEWAY_INTERFACE’} =~ /^CGI-Perl\//)

Bryar/Frontend/Mod_Perl.pm

3,5c3,5
+ #use Apache::Constants qw(OK);
+ #use Apache::Request;
+ #use Apache;
—
- use Apache::Constants qw(OK);
- use Apache::Request;
- use Apache;
12,44d11
+ BEGIN {
+
+ eval(’require mod_perl;’);
+ if ( $@ ) {
+ require Apache2::mod_perl;
+ }
+
+ $::MP2 = ($mod_perl::VERSION >= 1.99);
+
+ if ($::MP2) {
+ require Apache2;
+ require Apache::Server;
+ require Apache::RequestRec;
+ require Apache::Log;
+ require APR::Table;
+ require Apache::RequestIO;
+ require Apache::SubRequest;
+ require Apache::Const;
+
+ Apache::Const->import(-compile => ‘OK’,'DECLINED’,'FORBIDDEN’,'NOT_FOUND’);
+
+ }
+ else {
+ require Apache;
+ require Apache::Constants;
+ require Apache::Request;
+
+ Apache::Constants->import(’OK’,'DECLINED’,'FORBIDDEN’,'NOT_FOUND’);
+
+ }
+
+ }
+
58,62c25,27
+ sub obtain_params {
+ #my $apr = Apache::Request->new(Apache->request);
+ my $apr = new CGI;
+ map { $_ => $apr->param($_) } $apr->param ;
+ }
—
- sub obtain_params { my $apr = Apache::Request->new(Apache->request);
- map { $_ => $apr->param($_) } $apr->param ;
- }
65c30
+ Apache->request->status(’OK’);
—
- Apache->request->status(OK);