File 0807-megaco-test-Add-skip-reason.patch of Package erlang

From ab1f036c80058e263b68f51609057e31696afdf7 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Mon, 17 Jul 2023 09:43:08 +0200
Subject: [PATCH] [megaco|test] Add skip reason

Add 'eaccess' as a skip reason when opening a (udp) socket.
---
 lib/megaco/test/megaco_udp_SUITE.erl | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/lib/megaco/test/megaco_udp_SUITE.erl b/lib/megaco/test/megaco_udp_SUITE.erl
index 461b56fad4..40b542ffdf 100644
--- a/lib/megaco/test/megaco_udp_SUITE.erl
+++ b/lib/megaco/test/megaco_udp_SUITE.erl
@@ -1118,8 +1118,10 @@ server_open(Config, #{transport_ref := Ref} = State, Options)
               "~n      ControlPid: ~p", [Socket, ControlPid]),
 	    {ok, State#{handle      => {socket, Socket},  % Temporary
 			control_pid => ControlPid}};
-	{error, {could_not_open_udp_port, eaddrinuse}} ->
-	    {skip, {server, eaddrinuse}};
+	{error, {could_not_open_udp_port, SkipReason}}
+          when (SkipReason =:= eaddrinuse) orelse
+               (SkipReason =:= eacces) ->
+	    {skip, {server, SkipReason}};
 	{error, _} = ERROR ->
 	    ERROR
     catch
@@ -1233,8 +1235,10 @@ client_open(Config, #{transport_ref := Ref} = State, Options)
 	    {ok, State#{handle      => {socket, Socket},
                         socket      => Socket,
 			control_pid => ControlPid}};
-	{error, {could_not_open_udp_port, eaddrinuse}} ->
-	    {skip, {client, eaddrinuse}};
+	{error, {could_not_open_udp_port, SkipReason}}
+          when (SkipReason =:= eaddrinuse) orelse
+               (SkipReason =:= eacces) ->
+	    {skip, {client, SkipReason}};
 	{error, _} = ERROR ->
 	    ERROR
     catch
-- 
2.35.3