--- AnyEvent-HTTP/HTTP.pm 2011/01/02 04:50:40 1.82 +++ AnyEvent-HTTP/HTTP.pm 2011/01/02 05:02:28 1.83 @@ -418,6 +418,8 @@ sub cookie_jar_extract($$$$) { my ($jar, $uscheme, $uhost, $upath) = @_; + $uhost = lc $uhost; + %$jar = () if $jar->{version} != 1; my @cookies; @@ -532,7 +534,7 @@ # store it $jar->{version} = 1; - $jar->{$cdom}{$cpath}{$name} = \%kv; + $jar->{lc $cdom}{$cpath}{$name} = \%kv; redo if /\G\s*,/gc; }