Fix check and test for handle connected

Author: xdg

lib/HTTP/Tiny.pm

@@ -578,16 +578,8 @@ host has closed its end of the socket.
 sub connected {
  my ($self) = @_;
 
- # If a socket exists...
- if ($self->{handle} && $self->{handle}{fh}) {
- my $socket = $self->{handle}{fh};
-
- # ...and is connected, return the peer host and port.
- if ($socket->connected) {
- return wantarray
- ? ($socket->peerhost, $socket->peerport)
- : join(':', $socket->peerhost, $socket->peerport);
- }
+ if ( $self->{handle} ) {
+ return $self->{handle}->connected;
  }
  return;
 }
@@ -670,7 +662,7 @@ sub _request {
  }
 
  if ( $self->{keep_alive}
- && $self->connected
+ && $handle->connected
  && $known_message_length
  && $response->{protocol} eq 'HTTP/1.1'
  && ($response->{headers}{connection} || '') ne 'close'
@@ -1120,6 +1112,16 @@ sub connect {
  return $self;
 }
 
+sub connected {
+ my ($self) = @_;
+ if ( $self->{fh} && $self->{fh}->connected ) {
+ return wantarray
+ ? ( $self->{fh}->peerhost, $self->{fh}->peerport )
+ : join( ':', $self->{fh}->peerhost, $self->{fh}->peerport );
+ }
+ return;
+}
+
 sub start_ssl {
  my ($self, $host) = @_;
 

t/Util.pm

@@ -173,6 +173,7 @@ sub sort_headers {
  $self->{fh} = shift @res_fh;
  };
  *HTTP::Tiny::Handle::close = sub { 1 }; # don't close our temps
+ *HTTP::Tiny::Handle::connected = sub { 1 };
 
  # don't try to proxy in mock-mode
  delete $ENV{$_} for map { $_, uc($_) } qw/http_proxy https_proxy all_proxy/;