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 <merlyn@stonehenge.com>, 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};