Fix TLSProxy race by adding missing eval Reviewed-by: Richard Levitte <levitte@openssl.org>
diff --git a/util/TLSProxy/Proxy.pm b/util/TLSProxy/Proxy.pm index aafd902..950fd90 100644 --- a/util/TLSProxy/Proxy.pm +++ b/util/TLSProxy/Proxy.pm
@@ -226,12 +226,14 @@ do { my $servaddr = $self->server_addr; $servaddr =~ s/[\[\]]//g; # Remove [ and ] - $server_sock = $IP_factory->( - PeerAddr => $servaddr, - PeerPort => $self->server_port, - MultiHomed => 1, - Proto => 'tcp' - ); + eval { + $server_sock = $IP_factory->( + PeerAddr => $servaddr, + PeerPort => $self->server_port, + MultiHomed => 1, + Proto => 'tcp' + ); + }; $retry--; if ($@ || !defined($server_sock)) {