TLSProxy/Proxy.pm: handle "impossible" failure to connect to s_server.
The failure is "impossible", because we have confirmation that s_server
listens, yet Mac OS X fails to connect. This avoids 10 minutes timeout
on Travis CI.
@@ -189,10 +189,16 @@ sub connect_to_server
$servaddr =~ s/[\[\]]//g; # Remove [ and ]
- $self->{server_sock} = $IP_factory->(PeerAddr => $servaddr,
+ my $sock = $IP_factory->(PeerAddr => $servaddr,
PeerPort => $self->{server_port},
- Proto => 'tcp')
- or die "unable to connect: $!\n";
+ Proto => 'tcp');
+ if (!defined($sock)) {
+ my $err = $!;
+ kill(3, $self->{real_serverpid});
+ die "unable to connect: $err\n";
+ }
+
+ $self->{server_sock} = $sock;
}
sub start
