Blame otp-0007-Fix-erl_epmd-port_please-when-using-IPv6.patch
|
 |
fc59c2c |
From: John Eckersberg <jeckersb@redhat.com>
|
|
|
fc59c2c |
Date: Wed, 14 Jun 2017 12:32:17 -0400
|
|
|
fc59c2c |
Subject: [PATCH] Fix erl_epmd:port_please when using IPv6
|
|
|
fc59c2c |
|
|
|
fc59c2c |
This mirrors the behavior of inet:gethostbyname when no family or
|
|
|
fc59c2c |
timeout is supplied.
|
|
|
fc59c2c |
|
|
|
fc59c2c |
diff --git a/lib/kernel/src/erl_epmd.erl b/lib/kernel/src/erl_epmd.erl
|
|
|
fc59c2c |
index 7bc9e2ede3..f96bc88913 100644
|
|
|
fc59c2c |
--- a/lib/kernel/src/erl_epmd.erl
|
|
|
fc59c2c |
+++ b/lib/kernel/src/erl_epmd.erl
|
|
|
fc59c2c |
@@ -79,7 +79,13 @@ port_please(Node, EpmdAddr, Timeout) ->
|
|
|
fc59c2c |
|
|
|
fc59c2c |
|
|
|
fc59c2c |
port_please1(Node,HostName, Timeout) ->
|
|
|
fc59c2c |
- case inet:gethostbyname(HostName, inet, Timeout) of
|
|
|
fc59c2c |
+ Family = case inet_db:res_option(inet6) of
|
|
|
fc59c2c |
+ true ->
|
|
|
fc59c2c |
+ inet6;
|
|
|
fc59c2c |
+ false ->
|
|
|
fc59c2c |
+ inet
|
|
|
fc59c2c |
+ end,
|
|
|
fc59c2c |
+ case inet:gethostbyname(HostName, Family, Timeout) of
|
|
|
fc59c2c |
{ok,{hostent, _Name, _ , _Af, _Size, [EpmdAddr | _]}} ->
|
|
|
fc59c2c |
get_port(Node, EpmdAddr, Timeout);
|
|
|
fc59c2c |
Else ->
|