aboutsummaryrefslogtreecommitdiffstats
path: root/util/TLSProxy
diff options
context:
space:
mode:
authorViktor Dukhovni <openssl-users@dukhovni.org>2016-02-20 18:17:28 -0500
committerViktor Dukhovni <openssl-users@dukhovni.org>2016-02-20 18:26:23 -0500
commitdca97e9bfdfbb62b9a4f664ee901a826bc338ad7 (patch)
tree01d88866d1cc067ac1ac6109a1bf53f632a69d3f /util/TLSProxy
parent834aae2a99eeab7be8da4b8370188bc56f862e96 (diff)
downloadopenssl-dca97e9bfdfbb62b9a4f664ee901a826bc338ad7.tar.gz
Work-around for proxy->s_server retry logic
Reviewed-by: Richard Levitte <levitte@openssl.org>
Diffstat (limited to 'util/TLSProxy')
-rw-r--r--util/TLSProxy/Proxy.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/util/TLSProxy/Proxy.pm b/util/TLSProxy/Proxy.pm
index 7d21f4e83d..96e368189e 100644
--- a/util/TLSProxy/Proxy.pm
+++ b/util/TLSProxy/Proxy.pm
@@ -269,7 +269,9 @@ sub clientstart
);
$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);