File 4662-kernel-test-net-Misc.patch of Package erlang

From d1cd5efad865e9a8850d7b2a1b9beffaabdd1ca4 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Thu, 27 Oct 2022 09:59:28 +0200
Subject: [PATCH 2/7] [kernel|test|net] Misc

---
 lib/kernel/test/net_SUITE.erl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/kernel/test/net_SUITE.erl b/lib/kernel/test/net_SUITE.erl
index 83d06a31e7..067d4283b9 100644
--- a/lib/kernel/test/net_SUITE.erl
+++ b/lib/kernel/test/net_SUITE.erl
@@ -494,7 +494,7 @@ api_m_getaddrinfo_v6(doc) ->
 api_m_getaddrinfo_v6(Config) when is_list(Config) ->
     ?TT(?SECS(5)),
     Pre  = fun() ->
-                   {Name, FullName, IPStr, IP, Aliases,_,_} =
+                   {Name, FullName, IPStr, IP, Aliases} =
                        ct:get_config(test_host_ipv6_only),
                    #{name      => Name,
                      full_name => FullName,
@@ -516,7 +516,7 @@ api_m_getaddrinfo_v6(Config) when is_list(Config) ->
 api_m_getaddrinfo(#{name   := Name,
                     family := Domain,
                     ip     := IP}) ->
-    try net:gethaddrinfo(Name) of
+    try net:getaddrinfo(Name) of
         {ok, AddrInfos} ->
             %% Check that we can actually find this IP in the list
             api_m_getaddrinfo_verify(AddrInfos, Name, Domain, IP);
@@ -609,7 +609,7 @@ api_m_getnameinfo(#{name   := Name,
                     ip     := IP}) ->
     SA = #{family => Domain,
            addr   => IP},
-    try net:gethnameinfo(SA) of
+    try net:getnameinfo(SA) of
         {ok, NameInfo} ->
             %% Check that we can actually find this IP in the list
             api_m_getnameinfo_verify(NameInfo, Name);
@@ -617,7 +617,7 @@ api_m_getnameinfo(#{name   := Name,
             i("getaddrinfo not supported - skipping"),
             ?SKIP({getnameinfo, ReasonAI});
         {error, Reason} ->
-            ?FAIL({gethnameinfo, Name, Reason})
+            ?FAIL({getnameinfo, Name, Reason})
     catch
         error : notsup = Reason ->
             i("~w => skipping", [Reason]),
-- 
2.35.3

openSUSE Build Service is sponsored by