[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