diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/rabbit_peer_discovery_dns.erl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/rabbit_peer_discovery_dns.erl b/src/rabbit_peer_discovery_dns.erl index 3e9e2d988a..e2b1f57312 100644 --- a/src/rabbit_peer_discovery_dns.erl +++ b/src/rabbit_peer_discovery_dns.erl @@ -21,7 +21,7 @@ -export([list_nodes/0, register/0, unregister/0]). %% for tests --export([discover_nodes/2]). +-export([discover_nodes/2, discover_hostnames/2]). %% %% API @@ -59,10 +59,12 @@ unregister() -> %% discover_nodes(SeedHostname, LongNamesUsed) -> - [rabbit_peer_discovery:append_node_prefix(H) || H <- discover_hostnames(SeedHostname, LongNamesUsed)]. + [rabbit_peer_discovery:append_node_prefix(H) || + H <- discover_hostnames(SeedHostname, LongNamesUsed)]. discover_hostnames(SeedHostname, LongNamesUsed) -> - Hosts = [extract_host(inet_res:gethostbyaddr(A), LongNamesUsed) || A <- inet_res:lookup(SeedHostname, in, a)], + Hosts = [extract_host(inet_res:gethostbyaddr(A), LongNamesUsed) || + A <- inet_res:lookup(SeedHostname, in, a)], lists:filter(fun(E) -> E =/= error end, Hosts). %% long node names are used |