perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ph...@apache.org
Subject svn commit: r521582 - in /perl/modperl/branches/1.x: Changes lib/Apache/PerlRun.pm
Date Fri, 23 Mar 2007 04:35:46 GMT
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 <merlyn@stonehenge.com>, Fred Moyer <fred@redhotpenguin.com>]
+
 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;
 



Mime
View raw message