[interchange] Fix rare error with DowncaseVarname handling of GET/POST parameter names

Jon Jensen interchange-cvs at icdevgroup.org
Fri Oct 28 00:58:27 UTC 2011


commit 69d52e5d20b1ef2c64c047f0156abe1c3bf4f88b
Author: Jon Jensen <jon at endpoint.com>
Date:   Thu Oct 27 12:03:41 2011 -0600

    Fix rare error with DowncaseVarname handling of GET/POST parameter names
    
    Fixed by Josh Braegger at Backcountry.com. Thanks!

 lib/Vend/Server.pm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/lib/Vend/Server.pm b/lib/Vend/Server.pm
index 5baf109..884e724 100644
--- a/lib/Vend/Server.pm
+++ b/lib/Vend/Server.pm
@@ -296,7 +296,7 @@ sub store_cgi_kv {
 
 	$key = lc ($key) if
 		$Global::DowncaseVarname
-		&& $Global::DowncaseVarname =~ /\b$key\b/i;
+		&& $Global::DowncaseVarname =~ /\b\Q$key\E\b/i;
 
 	$key = $::IV->{$key} if defined $::IV->{$key};
 	if(defined $CGI::values{$key} and ! defined $::SV{$key}) {
@@ -408,7 +408,7 @@ sub parse_post {
 #::logDebug("incoming --> $key");
 		$key = lc ($key) if
 			$Global::DowncaseVarname
-			&& $Global::DowncaseVarname =~ /\b$key\b/i;
+			&& $Global::DowncaseVarname =~ /\b\Q$key\E\b/i;
 
 		$key = $::IV->{$key} if defined $::IV->{$key};
 



More information about the interchange-cvs mailing list