You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by ch...@locus.apache.org on 2000/08/02 17:53:19 UTC
cvs commit: modperl/lib/Apache Registry.pm
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 <th...@adobe.com>]
+
flush r->finfo cache if r->filename fails
[Roger Espel Llima <es...@iagora.net>]
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;