[interchange] Fix regexp from recent commit.
Peter Ajamian
interchange-cvs at icdevgroup.org
Fri Oct 7 05:59:58 UTC 2011
commit 36f02edf510db05bd02f0cc07a2ae6f8fcd921b4
Author: Peter Ajamian <peter at pajamian.dhs.org>
Date: Fri Oct 7 18:57:23 2011 +1300
Fix regexp from recent commit.
lib/Vend/Dispatch.pm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/lib/Vend/Dispatch.pm b/lib/Vend/Dispatch.pm
index 611a66a..c39f7fb 100644
--- a/lib/Vend/Dispatch.pm
+++ b/lib/Vend/Dispatch.pm
@@ -1280,7 +1280,7 @@ sub dispatch {
$::Instance->{ExternalCookie} = $sessionid || 1;
$Vend::CookieID = $Vend::Cookie = 1;
}
- elsif (defined $CGI::cookie and $CGI::cookie =~ /\bMV_SESSION_ID=(\w{8,32})[:_](.+?)\b/) {
+ elsif (defined $CGI::cookie and $CGI::cookie =~ /\bMV_SESSION_ID=(\w{8,32})[:_]([-\@.:A-Za-z0-9]+?)\b/) {
SESSION_COOKIE: {
my $id = $1;
my $host = $2;
More information about the interchange-cvs
mailing list