diff -Naur mod_perl-1.29-orig/lib/Apache/PerlRun.pm mod_perl-1.29/lib/Apache/PerlRun.pm

--- mod_perl-1.29-orig/lib/Apache/PerlRun.pm	2003-03-08 06:11:09 +0200

+++ mod_perl-1.29/lib/Apache/PerlRun.pm	2007-03-29 16:27:04 +0300

@@ -168,7 +168,7 @@

 		  $uri) if $Debug && $Debug & 4;

     my $path_info = $r->path_info;

-    my $script_name = $path_info && $uri =~ /$path_info$/ ?

+    my $script_name = $path_info && $uri =~ /\Q$path_info\E$/ ?

 	substr($uri, 0, length($uri)-length($path_info)) :

 	$uri;