apache-mod_perl-path_info_secfix.patch

   1 --- ModPerl-Registry/lib/ModPerl/RegistryCooker.pm~     2006-11-20 00:31:41.000000000 +0100
   2 +++ ModPerl-Registry/lib/ModPerl/RegistryCooker.pm      2007-03-23 14:01:52.606187672 +0100
   3 @@ -337,7 +337,7 @@
   4      my $self = shift;
   5
   6      my $path_info = $self->{REQ}->path_info;
   7 -    my $script_name = $path_info && $self->{URI} =~ /$path_info$/
   8 +    my $script_name = $path_info && $self->{URI} =~ /\Q$path_info\E$/
   9          ? substr($self->{URI}, 0, length($self->{URI}) - length($path_info))
  10          : $self->{URI};
  11