diff options
author | Matthias Kraft <Matthias.Kraft@softwareag.com> | 2019-02-04 09:55:07 +0100 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2019-02-04 21:50:23 +0100 |
commit | 66a60003719240399f6596e58c239df0465a4f70 (patch) | |
tree | 2ac0f97fbefc432e720982348c7dd55425b166ee /util/perl | |
parent | adc7e221f12462c6e10bc7c2c7afaf52490cb292 (diff) | |
download | openssl-66a60003719240399f6596e58c239df0465a4f70.tar.gz |
Fix Invalid Argument return code from IP_Factory in connect_to_server().
Fixes #7732
Reviewed-by: Matt Caswell <matt@openssl.org>
Reviewed-by: Richard Levitte <levitte@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/8158)
Diffstat (limited to 'util/perl')
-rw-r--r-- | util/perl/TLSProxy/Proxy.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/util/perl/TLSProxy/Proxy.pm b/util/perl/TLSProxy/Proxy.pm index 38213856f5..a583e636cd 100644 --- a/util/perl/TLSProxy/Proxy.pm +++ b/util/perl/TLSProxy/Proxy.pm @@ -44,7 +44,7 @@ BEGIN $s->close(); }; if ($@ eq "") { - $IP_factory = sub { IO::Socket::INET6->new(@_); }; + $IP_factory = sub { IO::Socket::INET6->new(Domain => AF_INET6, @_); }; $have_IPv6 = 1; } else { eval { |