You are viewing a plain text version of this content. The canonical link for it is here.
Posted to dev@perl.apache.org by Fred Moyer <fr...@taperfriendlymusic.org> on 2007/03/23 05:16:32 UTC
[patch] fix unescaped variable interprolation in regular expression
I have a +1 from Phillip [1](mp2 patch), another?
[1] http://marc.info/?l=apache-modperl&m=117462227916610&w=2
Index: Changes
===================================================================
--- Changes (revision 521567)
+++ Changes (working copy)
@@ -10,6 +10,9 @@
=item 1.30_01-dev
+fix unescaped variable interprolation in regular expression
+[Randal L. Schwartz <me...@stonehenge.com>, Fred Moyer
<fr...@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.
Index: lib/Apache/PerlRun.pm
===================================================================
--- lib/Apache/PerlRun.pm (revision 521567)
+++ lib/Apache/PerlRun.pm (working copy)
@@ -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;
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org
Re: [patch] fix unescaped variable interprolation in regular expression
Posted by Randy Kobes <ra...@theoryx5.uwinnipeg.ca>.
On Thu, 22 Mar 2007, Fred Moyer wrote:
> I have a +1 from Phillip [1](mp2 patch), another?
>
> [1] http://marc.info/?l=apache-modperl&m=117462227916610&w=2
>
> Index: Changes
> ===================================================================
> --- Changes (revision 521567)
> +++ Changes (working copy)
> @@ -10,6 +10,9 @@
>
> =item 1.30_01-dev
>
> +fix unescaped variable interprolation in regular expression
> +[Randal L. Schwartz <me...@stonehenge.com>, Fred Moyer
> <fr...@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.
> Index: lib/Apache/PerlRun.pm
> ===================================================================
> --- lib/Apache/PerlRun.pm (revision 521567)
> +++ lib/Apache/PerlRun.pm (working copy)
> @@ -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;
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
> For additional commands, e-mail: dev-help@perl.apache.org
+1
--
best regards,
Randy
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org