X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCGI%2FCookie.pm;h=1e1cfde87ca6e1579461963addd36f5d64813136;hb=ac734d8bd697d0795c7d9ab8a3fa6068e4da1b0c;hp=905ef5efa83eacfa61f702e8fd1a49f848adeea1;hpb=31f2a3990f7718ffeb53233b84d710d047b543f5;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/CGI/Cookie.pm b/lib/CGI/Cookie.pm
index 905ef5e..1e1cfde 100644
--- a/lib/CGI/Cookie.pm
+++ b/lib/CGI/Cookie.pm
@@ -153,7 +153,19 @@ sub name {
 sub value {
     my $self = shift;
     my $value = shift;
-    $self->{'value'} = $value if defined $value;
+      if (defined $value) {
+              my @values;
+        if (ref($value)) {
+            if (ref($value) eq 'ARRAY') {
+                @values = @$value;
+            } elsif (ref($value) eq 'HASH') {
+                @values = %$value;
+            }
+        } else {
+            @values = ($value);
+        }
+      $self->{'value'} = [@values];
+      }
     return wantarray ? @{$self->{'value'}} : $self->{'value'}->[0]
 }