[openssl-commits] [openssl] OpenSSL_1_1_0-stable update

[Richard Levitte]

The branch OpenSSL_1_1_0-stable has been updated
       via  fa9dc509cccbe30b48ad7f4f2e23610a182a23c3 (commit)
      from  baa5d0ed2c907ceb3890f055e73f01ef2b2353ee (commit)


- Log -----------------------------------------------------------------
commit fa9dc509cccbe30b48ad7f4f2e23610a182a23c3
Author: Richard Levitte <levitte at openssl.org>
Date:   Tue Jan 16 19:50:10 2018 +0100

    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 at hotmail.de>
    (Merged from https://github.com/openssl/openssl/pull/5092)
    
    (cherry picked from commit c44bab084ed139b5e5c3f6b318bf1bf65e04cfa5)

-----------------------------------------------------------------------

Summary of changes:
 util/perl/TLSProxy/Proxy.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/util/perl/TLSProxy/Proxy.pm b/util/perl/TLSProxy/Proxy.pm
index 3848135..8dbc5d0 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;
             }