From 169d7e440437c8b329cef82c4a260a990956caa7 Mon Sep 17 00:00:00 2001
From: Markus Knofe <markus@knofe.net>
Date: Fri, 10 Dec 2010 19:14:08 +0100
Subject: Fix list returned by net_kernel:epmd_module

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 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/kernel')

diff --git a/lib/kernel/src/net_kernel.erl b/lib/kernel/src/net_kernel.erl
index f5e2820bbe..6c2e0f5514 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.
-- 
cgit v1.2.3