diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-09 12:57:41 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-09 12:57:41 +0000 |
| commit | 199d4a26d48e1b7e74e11764ce528d26a727b369 (patch) | |
| tree | f26cbc5aa21edb1f0892842c0691ee723f6fb87a /lib/CGI | |
| parent | 5d9f8747f2e66f41f2988471654fe83786226629 (diff) | |
| download | perl-199d4a26d48e1b7e74e11764ce528d26a727b369.tar.gz | |
Upgrade to CGI.pm 2.753, from Lincoln Stein.
p4raw-id: //depot/perl@9659
Diffstat (limited to 'lib/CGI')
| -rw-r--r-- | lib/CGI/Cookie.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/CGI/Cookie.pm b/lib/CGI/Cookie.pm index de91be2780..905ef5efa8 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.18'; +$CGI::Cookie::VERSION='1.20'; use CGI::Util qw(rearrange unescape escape); use overload '""' => \&as_string, @@ -65,14 +65,14 @@ sub parse { my(@pairs) = split("; ?",$raw_cookie); foreach (@pairs) { s/\s*(.*?)\s*/$1/; - my($key,$value) = split("="); + my($key,$value) = split("=",$_,2); # Some foreign cookies are not in name=value format, so ignore # them. next if !defined($value); my @values = (); if ($value ne '') { - @values = map CGI::unescape($_),split(/[&;]/,$value.'&dmy'); + @values = map unescape($_),split(/[&;]/,$value.'&dmy'); pop @values; } $key = unescape($key); @@ -279,7 +279,7 @@ script if the CGI request is occurring on a secure channel, such as SSL. -value => 'bar', -expires => '+3M', -domain => '.capricorn.com', - -path => '/cgi-bin/database' + -path => '/cgi-bin/database', -secure => 1 ); |