File 0424-megaco-example-simple-Fixed-various-dialyzer-issues.patch of Package erlang
From 8d165c70d82e6931ae8436bcc4856e24468c70aa Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Wed, 13 Jul 2022 16:34:30 +0200
Subject: [PATCH 4/7] [megaco|example|simple] Fixed various dialyzer issues
OTP-18179
---
lib/megaco/examples/simple/megaco_simple_mg.erl | 9 ++++++++-
lib/megaco/examples/simple/megaco_simple_mgc.erl | 8 +++++++-
2 files changed, 15 insertions(+), 2 deletions(-)
diff --git a/lib/megaco/examples/simple/megaco_simple_mg.erl b/lib/megaco/examples/simple/megaco_simple_mg.erl
index 83293b810d..b71cf3c628 100644
--- a/lib/megaco/examples/simple/megaco_simple_mg.erl
+++ b/lib/megaco/examples/simple/megaco_simple_mg.erl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2001-2016. All Rights Reserved.
+%% Copyright Ericsson AB 2001-2022. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
@@ -108,6 +108,13 @@ get_arg(Key, Args) ->
{value, {Key, Val}} = lists:keysearch(Key, 1, Args),
Val.
+
+-spec init_batch(ReplyTo :: pid(),
+ MgcHost :: term(),
+ Trace :: term(),
+ Debug :: term()) ->
+ no_return().
+
init_batch(ReplyTo, MgcHost, Trace, Debug) ->
register(?MODULE, self()),
Res = start(MgcHost, Trace, Debug),
diff --git a/lib/megaco/examples/simple/megaco_simple_mgc.erl b/lib/megaco/examples/simple/megaco_simple_mgc.erl
index 8a78262b86..40a27955f4 100644
--- a/lib/megaco/examples/simple/megaco_simple_mgc.erl
+++ b/lib/megaco/examples/simple/megaco_simple_mgc.erl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2001-2019. All Rights Reserved.
+%% Copyright Ericsson AB 2001-2022. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
@@ -406,7 +406,13 @@ start_batch(Args0) ->
io:format("~p(~p): ~p~n", [?MODULE, ?LINE, Res]),
Res
end.
+
+-spec init_batch(ReplyTo :: pid(),
+ Trace :: term(),
+ Debug :: term()) ->
+ no_return().
+
init_batch(ReplyTo, Trace, Debug) ->
register(?MODULE, self()),
Res = start(Trace, Debug),
--
2.35.3