[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