提交 7ad5fb62 编写于 作者: V Viktor Dukhovni

Fix TLSProxy race by adding missing eval

Reviewed-by: NRichard Levitte <levitte@openssl.org>
上级 f2b9c257
...@@ -226,12 +226,14 @@ sub clientstart ...@@ -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)) {
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册