File 1313-kernel-test-has-support-test-functions-used-case-ins.patch of Package erlang

From 03bee7b62624b5f6510ce6e40a71bc9a344e14e8 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Mon, 2 Mar 2026 14:20:39 +0100
Subject: [PATCH 13/14] [kernel|test] 'has support' test functions used case
 instead iof try

---
 lib/kernel/test/socket_SUITE.erl | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/lib/kernel/test/socket_SUITE.erl b/lib/kernel/test/socket_SUITE.erl
index ea86e571da..fac6118829 100644
--- a/lib/kernel/test/socket_SUITE.erl
+++ b/lib/kernel/test/socket_SUITE.erl
@@ -15708,15 +15708,12 @@ sendmmsg_dirty_scheduler_udp4(_Config) when is_list(_Config) ->
 has_recvmmsg_support() ->
     {ok, S} = socket:open(inet, dgram, udp),
     try socket:recvmmsg(S, 1, 0, 0, [], 0) of
-        {error, notsup} ->
-            ok = socket:close(S),
-            skip("recvmmsg not supported on this platform");
         _ ->
             ok = socket:close(S),
             ok
     catch
-        _:_ ->
-            ok = socket:close(S),
+        error : notsup ->
+            _ = socket:close(S),
             skip("recvmmsg not supported on this platform")
     end.
 
@@ -15729,14 +15726,11 @@ has_sendmmsg_support() ->
     {ok, S} = socket:open(inet, dgram, udp),
     Msgs = [#{iov => [<<"test">>]}],
     try socket:sendmmsg(S, Msgs, [], 0) of
-        {error, notsup} ->
-            ok = socket:close(S),
-            skip("sendmmsg not supported on this platform");
         _ ->
             ok = socket:close(S),
             ok
     catch
-        _:_ ->
-            ok = socket:close(S),
+        error : notsup ->
+            _ = socket:close(S),
             skip("sendmmsg not supported on this platform")
     end.
-- 
2.51.0