]>
Commit | Line | Data |
---|---|---|
9b558064 | 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 |