diff options
| author | Steve Peters <steve@fisharerojo.org> | 2008-04-30 12:57:38 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2008-04-30 12:57:38 +0000 |
| commit | ebb7c588e19eeb98693e63d130912163306d04b0 (patch) | |
| tree | 309711f0d9206c3f7cc0f5ce7e65d4d7baf0031e /lib/CGI/Cookie.pm | |
| parent | 9de9b613d4eea9f8dc1cbb98f3b265ce4be1efbe (diff) | |
| download | perl-ebb7c588e19eeb98693e63d130912163306d04b0.tar.gz | |
Upgrade to CGI.pm-3.37
p4raw-id: //depot/perl@33773
Diffstat (limited to 'lib/CGI/Cookie.pm')
| -rw-r--r-- | lib/CGI/Cookie.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/CGI/Cookie.pm b/lib/CGI/Cookie.pm index 897e33122e..c9f318ee22 100644 --- a/lib/CGI/Cookie.pm +++ b/lib/CGI/Cookie.pm @@ -13,7 +13,7 @@ package CGI::Cookie; # wish, but if you redistribute a modified version, please attach a note # listing the modifications you have made. -$CGI::Cookie::VERSION='1.28'; +$CGI::Cookie::VERSION='1.29'; use CGI::Util qw(rearrange unescape escape); use CGI; @@ -51,7 +51,7 @@ sub fetch { my %results; my($key,$value); - my(@pairs) = split("[;,] ?",$raw_cookie); + my @pairs = split("[;,] ?",$raw_cookie); foreach (@pairs) { s/\s*(.*?)\s*/$1/; if (/^([^=]+)=(.*)/) { @@ -88,7 +88,7 @@ sub parse { my ($self,$raw_cookie) = @_; my %results; - my(@pairs) = split("; ?",$raw_cookie); + my @pairs = split("[;,] ?",$raw_cookie); foreach (@pairs) { s/\s*(.*?)\s*/$1/; my($key,$value) = split("=",$_,2); |