--- AnyEvent-HTTP/HTTP.pm 2011/01/11 23:49:37 1.94 +++ AnyEvent-HTTP/HTTP.pm 2011/01/12 03:30:05 1.95 @@ -48,7 +48,7 @@ use base Exporter::; -our $VERSION = '2.01'; +our $VERSION = '2.02'; our @EXPORT = qw(http_get http_post http_head http_request); @@ -548,7 +548,7 @@ $value =~ s/\\(.)/$1/gs; } - push @kv, lc $name, $value; + push @kv, @kv ? lc $name : $name, $value; last unless /\G\s*;/gc; }