… | |
… | |
372 | |
372 | |
373 | $state{handle}->starttls ("connect") if $rscheme eq "https"; |
373 | $state{handle}->starttls ("connect") if $rscheme eq "https"; |
374 | |
374 | |
375 | # handle actual, non-tunneled, request |
375 | # handle actual, non-tunneled, request |
376 | my $handle_actual_request = sub { |
376 | my $handle_actual_request = sub { |
377 | # $state{handle}->starttls ("connect") if $uscheme eq "https"; |
377 | $state{handle}->starttls ("connect") if $uscheme eq "https"; |
378 | |
378 | |
379 | # send request |
379 | # send request |
380 | $state{handle}->push_write ( |
380 | $state{handle}->push_write ( |
381 | "$method $rpath HTTP/1.0\015\012" |
381 | "$method $rpath HTTP/1.0\015\012" |
382 | . (join "", map "\u$_: $hdr{$_}\015\012", keys %hdr) |
382 | . (join "", map "\u$_: $hdr{$_}\015\012", keys %hdr) |