[interchange] Fix regexp from recent commit.
Peter Ajamian <[email protected]>
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit 36f02edf510db05bd02f0cc07a2ae6f8fcd921b4 Author: Peter Ajamian <[email protected]> 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;