Fix TLSProxy race by adding missing eval

Reviewed-by: Richard Levitte <levitte@openssl.org>
This commit is contained in:
Viktor Dukhovni 2016-05-11 18:01:41 -04:00
parent f2b9c25721
commit 7ad5fb6267

View File

@ -226,12 +226,14 @@ sub clientstart
do { do {
my $servaddr = $self->server_addr; my $servaddr = $self->server_addr;
$servaddr =~ s/[\[\]]//g; # Remove [ and ] $servaddr =~ s/[\[\]]//g; # Remove [ and ]
$server_sock = $IP_factory->( eval {
PeerAddr => $servaddr, $server_sock = $IP_factory->(
PeerPort => $self->server_port, PeerAddr => $servaddr,
MultiHomed => 1, PeerPort => $self->server_port,
Proto => 'tcp' MultiHomed => 1,
); Proto => 'tcp'
);
};
$retry--; $retry--;
if ($@ || !defined($server_sock)) { if ($@ || !defined($server_sock)) {