[interchange] Fix rare error with DowncaseVarname handling of GET/POST parameter names
Jon Jensen <[email protected]>
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit 69d52e5d20b1ef2c64c047f0156abe1c3bf4f88b Author: Jon Jensen <[email protected]> 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};