diff options
| author | Viktor Dukhovni <openssl-users@dukhovni.org> | 2016-05-11 18:01:41 -0400 |
|---|---|---|
| committer | Viktor Dukhovni <openssl-users@dukhovni.org> | 2016-05-11 18:43:07 -0400 |
| commit | 7ad5fb6267e9da1634998bf2eccaa753f443fa83 (patch) | |
| tree | 0d19dbed250a2f1e72e82062f70c12749c1761eb /util/TLSProxy | |
| parent | f2b9c257216a27b568b3d5d703ca5bdd926c5c28 (diff) | |
Fix TLSProxy race by adding missing eval
Reviewed-by: Richard Levitte <levitte@openssl.org>
Diffstat (limited to 'util/TLSProxy')
| -rw-r--r-- | util/TLSProxy/Proxy.pm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/util/TLSProxy/Proxy.pm b/util/TLSProxy/Proxy.pm index aafd902bca..950fd90749 100644 --- a/util/TLSProxy/Proxy.pm +++ b/util/TLSProxy/Proxy.pm @@ -226,12 +226,14 @@ sub clientstart 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)) { |