summaryrefslogtreecommitdiffstats
path: root/util
diff options
context:
space:
mode:
authorMatthias Kraft <Matthias.Kraft@softwareag.com>2019-02-04 09:55:07 +0100
committerRichard Levitte <levitte@openssl.org>2019-02-04 21:52:20 +0100
commit5dc422c7abbd243a5a665f81d7f1e589b646967d (patch)
tree07b05faed4daa0f3590e1229b95249cdbfdfaa67 /util
parent453eccd63ad6ba19f6a3fcac37df05daf6cc1021 (diff)
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) (cherry picked from commit 66a60003719240399f6596e58c239df0465a4f70)
Diffstat (limited to 'util')
-rw-r--r--util/perl/TLSProxy/Proxy.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/util/perl/TLSProxy/Proxy.pm b/util/perl/TLSProxy/Proxy.pm
index 8c13520ec6..89c8c1d6f2 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 {