Respect -proto_dist flag when specified multiple times

erlang · Jul 15, 2024 · 2bd9c31 · 2bd9c31
1 parent 6dafb73
commit 2bd9c31
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/kernel/src/net_kernel.erl b/lib/kernel/src/net_kernel.erl
@@ -2400,7 +2400,7 @@ split_node(Name) ->
 -doc false.
 protocol_childspecs() ->
     case init:get_argument(proto_dist) of
-	{ok, [Protos]} ->
+	{ok, [Protos | _]} ->
 	    protocol_childspecs(Protos);
 	_ ->
 	    protocol_childspecs(["inet_tcp"])
@@ -2462,7 +2462,7 @@ hidden_argument() ->
 
 start_protos(Node, CleanHalt, Listen) ->
     case init:get_argument(proto_dist) of
-	{ok, [Protos]} ->
+	{ok, [Protos | _]} ->
 	    start_protos(Node, Protos, CleanHalt, Listen);
 	_ ->
 	    start_protos(Node, ["inet_tcp"], CleanHalt, Listen)