Sophie: apache-mod_perl-1:2.0.3-3.1mdv2007.1 src

apache-mod_perl-2.0.3-3.1mdv2007.1.src.rpm

Info
Deps
Files
Scripts
ChangeLog
Location
Others versions
Analyse

--- perl/modperl/trunk/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm	2007/02/06 04:31:48	503976
+++ perl/modperl/trunk/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm	2007/03/23 04:43:57	521584
@@ -337,7 +337,7 @@
     my $self = shift;
 
     my $path_info = $self->{REQ}->path_info;
-    my $script_name = $path_info && $self->{URI} =~ /$path_info$/
+    my $script_name = $path_info && $self->{URI} =~ /\Q$path_info\E$/
         ? substr($self->{URI}, 0, length($self->{URI}) - length($path_info))
         : $self->{URI};