- eval 'use Apache;';
- if ($@) {
- eval 'use mod_perl2; $modperl_version = $mod_perl2::VERSION; ';
- if ($@) {
- $modperl_version = $Apache2::RequestRec::VERSION;
- }
- require Apache2::RequestIO;
- require Apache2::RequestRec;
- require Apache2::RequestUtil;
- require APR::URI;
- require HTTP::Body;
- $MODPERL2 = 1;
+ #eval 'use Apache;'; # could fuck shit up if you have some file na
+ # named Apache.pm in your path forex CGI/Apache.pm
+ $MODPERL2 = ( exists $ENV{MOD_PERL_API_VERSION} and
+ $ENV{MOD_PERL_API_VERSION} >= 2 );
+ if ($MODPERL2) {
+ eval 'use mod_perl2; $modperl_version = $mod_perl2::VERSION;';
+ if ($@) {
+ $modperl_version = $Apache2::RequestRec::VERSION;
+ }
+ require Apache2::RequestIO;
+ require Apache2::RequestRec;
+ require Apache2::RequestUtil;
+ eval 'use Apache2::Const -compile => qw/REDIRECT/;'; # -compile 4 no import
+ require APR::URI;
+ require HTTP::Body;