Author: phred
Date: Thu Mar 22 21:43:57 2007
New Revision: 521584
URL: http://svn.apache.org/viewvc?view=rev&rev=521584
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/trunk/Changes
perl/modperl/trunk/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm
Modified: perl/modperl/trunk/Changes
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/Changes?view=diff&rev=521584&r1=521583&r2=521584
==============================================================================
--- perl/modperl/trunk/Changes (original)
+++ perl/modperl/trunk/Changes Thu Mar 22 21:43:57 2007
@@ -12,6 +12,9 @@
=item 2.0.4-dev
+fix unescaped variable interprolation in regular expression
+[Randal L. Schwartz <[email protected]>, Fred Moyer <[EMAIL PROTECTED]>]
+
Make $r->the_request() writeable
[Fred Moyer <[EMAIL PROTECTED]>]
Modified: perl/modperl/trunk/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm?view=diff&rev=521584&r1=521583&r2=521584
==============================================================================
--- perl/modperl/trunk/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm (original)
+++ perl/modperl/trunk/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm Thu Mar
22 21:43:57 2007
@@ -337,7 +337,7 @@
my $self = shift;
my $path_info = $self->{REQ}->path_info;
- my $script_name = $path_info && $self->{URI} =~ /$path_info$/
+ my $script_name = $path_info && $self->{URI} =~ /\Q$path_info\E$/
? substr($self->{URI}, 0, length($self->{URI}) - length($path_info))
: $self->{URI};
