perl-mod_perl2.patch

   1 --- ./lib/CGI/Cookie.pm.org     2004-03-09 16:13:48.000000000 +0100
   2 +++ ./lib/CGI/Cookie.pm 2005-06-07 12:55:01.546120072 +0200
   3 @@ -27,7 +27,7 @@
   4    if (defined $mod_perl::VERSION) {
   5      if ($mod_perl::VERSION >= 1.99) {
   6        $MOD_PERL = 2;
   7 -      require Apache::RequestUtil;
   8 +      require Apache2::RequestUtil;
   9      } else {
  10        $MOD_PERL = 1;
  11        require Apache;
  12 --- ./lib/CGI/Carp.pm.org       2004-06-09 10:25:42.000000000 +0200
  13 +++ ./lib/CGI/Carp.pm   2005-06-07 12:53:39.541586656 +0200
  14 @@ -468,14 +468,14 @@
  15      require mod_perl;
  16      if ($mod_perl::VERSION >= 1.99) {
  17        $mod_perl = 2;
  18 -      require Apache::RequestRec;
  19 -      require Apache::RequestIO;
  20 -      require Apache::RequestUtil;
  21 +      require Apache2::RequestRec;
  22 +      require Apache2::RequestIO;
  23 +      require Apache2::RequestUtil;
  24        require APR::Pool;
  25        require ModPerl::Util;
  26 -      require Apache::Response;
  27 +      require Apache2::Response;
  28      }
  29 -    my $r = Apache->request;
  30 +    my $r = Apache2::RequestUtil->request;
  31      # If bytes have already been sent, then
  32      # we print the message out directly.
  33      # Otherwise we make a custom error