commit 7ad5fb6267e9da1634998bf2eccaa753f443fa83
author Viktor Dukhovni <openssl-users@dukhovni.org> Wed May 11 18:01:41 2016 -0400
committer Viktor Dukhovni <openssl-users@dukhovni.org> Wed May 11 18:43:07 2016 -0400
tree 0d19dbed250a2f1e72e82062f70c12749c1761eb
parent f2b9c257216a27b568b3d5d703ca5bdd926c5c28

Fix TLSProxy race by adding missing eval

Reviewed-by: Richard Levitte <levitte@openssl.org>

util/TLSProxy/Proxy.pm

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)) {