TLSProxy::Proxy: If we don't support IPv6, force IPv4
[openssl.git] / util / perl / TLSProxy / Proxy.pm
index d778d0e70da7c81a7b36ffcdd391827eb6c0d97a..a87675c5ca5464b15fe819174afd631b3c181679 100644 (file)
@@ -167,6 +167,9 @@ sub start
             .($self->server_port)
             ." -cert ".$self->cert." -cert2 ".$self->cert
             ." -naccept ".$self->serverconnects;
+        unless ($self->supports_IPv6) {
+            $execcmd .= " -4";
+        }
         if ($self->ciphers ne "") {
             $execcmd .= " -cipher ".$self->ciphers;
         }
@@ -228,6 +231,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;
             }