LogoopenSUSE Build Service > Projects
Sign Up | Log In

View File otp_src_18.2.3-lib-stdlib-supervisor.patch of Package erlang (Project home:Ledest:erlang:20)

diff -Ndur otp_src_18.2.3/lib/stdlib/src/supervisor.erl otp_src_18.2.3-lib-stdlib-supervisor/lib/stdlib/src/supervisor.erl
--- otp_src_18.2.3/lib/stdlib/src/supervisor.erl	2016-01-29 16:13:45.000000000 +0200
+++ otp_src_18.2.3-lib-stdlib-supervisor/lib/stdlib/src/supervisor.erl	2016-02-14 05:38:22.884092807 +0200
@@ -1334,7 +1334,7 @@
 
 validName(_Name) -> true.
 
-validFunc({M, F, A}) when is_atom(M), 
+validFunc({M, F, A}) when is_atom(M) orelse is_tuple(M),
                           is_atom(F), 
                           is_list(A) -> true;
 validFunc(Func)                      -> throw({invalid_mfa, Func}).
@@ -1354,7 +1354,7 @@
 validMods(Mods) when is_list(Mods) ->
     lists:foreach(fun(Mod) ->
 		    if
-			is_atom(Mod) -> ok;
+			is_atom(Mod); is_tuple(Mod) -> ok;
 			true -> throw({invalid_module, Mod})
 		    end
 		  end,