multiple cookies support, should be passed as array ref

Author: Daniil Shelepanov

lib/AnyEvent/HTTP/Server/Req.pm

@@ -346,6 +346,15 @@ use Digest::SHA1 'sha1';
 				$h->{'content-type'} = 'text/html; charset=utf-8';
 			}
 			my $nh = delete $h->{NotHandled};
+
+			# set multiple cookies
+			if(ref $h->{'set-cookie'} eq 'ARRAY') {
+				my $cookies = delete $h->{'set-cookie'};
+
+				#set-cookie is not in @hdr
+				push(@bad, "Set-Cookie: ".$_.$LF) for(@{$cookies});
+			}
+
 			for (keys %$h) {
 				if (exists $hdr{lc $_}) { $good[ $hdri{lc $_} ] = $hdr{ lc $_ }.": ".$h->{$_}.$LF; }
 				else {