[PATCH] Fix list returned by net_kernel:epmd_module

[Markus Knofe]

Function epmd_module of net_kernel returns a list
instead of an atom, when the epmd_module-flag is used.
---
 lib/kernel/src/net_kernel.erl |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/lib/kernel/src/net_kernel.erl b/lib/kernel/src/net_kernel.erl
index f5e2820..6c2e0f5 100644
--- a/lib/kernel/src/net_kernel.erl
+++ b/lib/kernel/src/net_kernel.erl
@@ -1254,7 +1254,7 @@ protocol_childspecs([H|T]) ->
 epmd_module() ->
     case init:get_argument(epmd_module) of
 	{ok,[[Module]]} ->
-	    Module;
+	    list_to_atom(Module);
 	_ ->
 	    erl_epmd
     end.
-- 
1.7.1