Author: phred
Date: Thu Mar 22 21:35:45 2007
New Revision: 521582
URL: http://svn.apache.org/viewvc?view=rev&rev=521582
Log:
fix unescaped variable interpolation in regular expression
Reported by: Eric Snyder, Perrin Harkins
Submitted by: Fred Moyer, Randal Schwartz
Reviewed by: Philip Gollucci, Randy Kobes
Modified:
perl/modperl/branches/1.x/Changes
perl/modperl/branches/1.x/lib/Apache/PerlRun.pm
Modified: perl/modperl/branches/1.x/Changes
URL:
http://svn.apache.org/viewvc/perl/modperl/branches/1.x/Changes?view=diff&rev=521582&r1=521581&r2=521582
==============================================================================
--- perl/modperl/branches/1.x/Changes (original)
+++ perl/modperl/branches/1.x/Changes Thu Mar 22 21:35:45 2007
@@ -10,6 +10,9 @@
=item 1.30_01-dev
+fix unescaped variable interpolation in regular expression
+[Randal L. Schwartz <[email protected]>, Fred Moyer <[EMAIL PROTECTED]>]
+
Pull in the new Apache-SizeLimit from
http://svn.apache.org/repos/asf/perl/Apache-SizeLimit/trunk
and obsolete the previous lib/Apache/SizeLimit.pm.
Modified: perl/modperl/branches/1.x/lib/Apache/PerlRun.pm
URL:
http://svn.apache.org/viewvc/perl/modperl/branches/1.x/lib/Apache/PerlRun.pm?view=diff&rev=521582&r1=521581&r2=521582
==============================================================================
--- perl/modperl/branches/1.x/lib/Apache/PerlRun.pm (original)
+++ perl/modperl/branches/1.x/lib/Apache/PerlRun.pm Thu Mar 22 21:35:45 2007
@@ -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;
