commit dca97e9bfdfbb62b9a4f664ee901a826bc338ad7
author Viktor Dukhovni <openssl-users@dukhovni.org> Sat Feb 20 18:17:28 2016 -0500
committer Viktor Dukhovni <openssl-users@dukhovni.org> Sat Feb 20 18:26:23 2016 -0500
tree 01d88866d1cc067ac1ac6109a1bf53f632a69d3f
parent 834aae2a99eeab7be8da4b8370188bc56f862e96

Work-around for proxy->s_server retry logic

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

util/TLSProxy/Proxy.pm

diff --git a/util/TLSProxy/Proxy.pm b/util/TLSProxy/Proxy.pm
index 7d21f4e..96e3681 100644
--- a/util/TLSProxy/Proxy.pm
+++ b/util/TLSProxy/Proxy.pm
@@ -269,7 +269,9 @@
         );
 
         $retry--;
-        if (!$server_sock) {
+        if ($@ || !defined($server_sock)) {
+            $server_sock->close() if defined($server_sock);
+            undef $server_sock;
             if ($retry) {
                 #Sleep for a short while
                 select(undef, undef, undef, 0.1);