diff options
author | Richard Levitte <levitte@openssl.org> | 2018-01-16 19:50:10 +0100 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2018-01-17 09:28:30 +0100 |
commit | fa9dc509cccbe30b48ad7f4f2e23610a182a23c3 (patch) | |
tree | e4fa9f811c0c0b414ffe7174ea332fa6b249ca2c /util | |
parent | baa5d0ed2c907ceb3890f055e73f01ef2b2353ee (diff) |
TLSProxy::Proxy: If we don't support IPv6, force IPv4
We use the first we can of the following IO::Socket modules to create
sockets:
- IO::Socket::INET6
- IO::Socket::IP
- IO::Socket::INET
The last of them doesn't support IPv6, so if that's the one available,
we must force the s_client and s_server processes to use IPv4.
Reviewed-by: Bernd Edlinger <bernd.edlinger@hotmail.de>
(Merged from https://github.com/openssl/openssl/pull/5092)
(cherry picked from commit c44bab084ed139b5e5c3f6b318bf1bf65e04cfa5)
Diffstat (limited to 'util')
-rw-r--r-- | util/perl/TLSProxy/Proxy.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/util/perl/TLSProxy/Proxy.pm b/util/perl/TLSProxy/Proxy.pm index 3848135af9..8dbc5d0809 100644 --- a/util/perl/TLSProxy/Proxy.pm +++ b/util/perl/TLSProxy/Proxy.pm @@ -156,6 +156,9 @@ sub start ." s_server -no_comp -rev -engine ossltest -accept " .($self->server_port) ." -cert ".$self->cert." -naccept ".$self->serverconnects; + unless ($self->supports_IPv6) { + $execcmd .= " -4"; + } if ($self->ciphers ne "") { $execcmd .= " -cipher ".$self->ciphers; } @@ -217,6 +220,9 @@ sub clientstart my $execcmd = "echo ".$echostr." | ".$self->execute ." s_client -engine ossltest -connect " .($self->proxy_addr).":".($self->proxy_port); + unless ($self->supports_IPv6) { + $execcmd .= " -4"; + } if ($self->cipherc ne "") { $execcmd .= " -cipher ".$self->cipherc; } |