… | |
… | |
649 | $hdr{"user-agent"} = $USERAGENT unless exists $hdr{"user-agent"}; |
649 | $hdr{"user-agent"} = $USERAGENT unless exists $hdr{"user-agent"}; |
650 | |
650 | |
651 | $hdr{"content-length"} = length $arg{body} |
651 | $hdr{"content-length"} = length $arg{body} |
652 | if length $arg{body} || $method ne "GET"; |
652 | if length $arg{body} || $method ne "GET"; |
653 | |
653 | |
654 | $hdr{connection} = "close TE"; #1.1 |
654 | $hdr{connection} = "close Te"; #1.1 |
655 | $hdr{te} = "trailers" unless exists $hdr{te}; #1.1 |
655 | $hdr{te} = "trailers" unless exists $hdr{te}; #1.1 |
656 | |
656 | |
657 | my %state = (connect_guard => 1); |
657 | my %state = (connect_guard => 1); |
658 | |
658 | |
659 | _get_slot $uhost, sub { |
659 | _get_slot $uhost, sub { |