Don't convert configuration values to strings

diff --git a/src/ejabberd_config.erl b/src/ejabberd_config.erl
index 53936744ec39a90501bf471f324286f407d4530d..cacec8bf11c6c67dcb88446ec4af082bafbbdc3f 100644 (file)
--- a/src/ejabberd_config.erl
+++ b/src/ejabberd_config.erl
@@ -207,12 +207,10 @@ consult(File) ->
             end
     end.
 
-parserl([$>, $\s | String]) ->
-    {ok, A2, _} = erl_scan:string(String),
+parserl(<<"> ", Term/binary>>) ->
+    {ok, A2, _} = erl_scan:string(binary_to_list(Term)),
     {ok, A3} = erl_parse:parse_term(A2),
     A3;
-parserl(B) when is_binary(B) ->
-    parserl(binary_to_list(B));
 parserl({A, B}) ->
     {parserl(A), parserl(B)};
 parserl([El|Tail]) ->