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
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))