cholet 00/08/02 08:53:17
Modified: . Changes
lib/Apache Registry.pm
Log:
quotemeta regexp
Revision Changes Path
1.503 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.502
retrieving revision 1.503
diff -u -r1.502 -r1.503
--- Changes 2000/07/25 17:59:45 1.502
+++ Changes 2000/08/02 15:53:11 1.503
@@ -10,6 +10,9 @@
=item 1.24_01-dev
+quotemeta path_info in Registry regexp
+[Tobias Hoellrich <[EMAIL PROTECTED]>]
+
flush r->finfo cache if r->filename fails
[Roger Espel Llima <[EMAIL PROTECTED]>]
1.32 +1 -1 modperl/lib/Apache/Registry.pm
Index: Registry.pm
===================================================================
RCS file: /home/cvs/modperl/lib/Apache/Registry.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -r1.31 -r1.32
--- Registry.pm 2000/04/05 06:19:34 1.31
+++ Registry.pm 2000/08/02 15:53:15 1.32
@@ -62,7 +62,7 @@
$r->log_error(sprintf "Apache::Registry::handler examining %s",
$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;
