Movable Type & mod_perl2

diff -wbiBprU5 MT-3.33/lib/MT/App.pm /usr/lib/mt/lib/MT/App.pm
--- MT-3.33/lib/MT/App.pm       2006-09-21 18:43:33.000000000 +0000
+++ /usr/lib/mt/lib/MT/App.pm   2006-10-04 11:36:36.321583500 +0000
@@ -131,14 +131,14 @@ sub print {
     }
 }

 my $TransparentProxyIPs = 0;

-sub handler ($$) {
+sub handler ($$) : method {
     my $class = shift;
     my($r) = @_;
-    require Apache::Constants;
+    require Apache::Constants if ($ENV{MOD_PERL}) ;
     if (lc($r->dir_config('Filter') || '') eq 'on') {
         $r = $r->filter_register;
     }
     my $config_file = $r->dir_config('MTConfig');
     my $mt_dir = $r->dir_config('MTHome');