From d00f0fb1f4bb580f167b732f6a41f8491d4366cf Mon Sep 17 00:00:00 2001
From: Holger Weiss <holger@zedat.fu-berlin.de>
Date: Mon, 9 Feb 2015 01:08:01 +0100
Subject: [PATCH] Don't convert configuration values to strings

---
 src/ejabberd_config.erl | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/ejabberd_config.erl b/src/ejabberd_config.erl
index 53936744e..cacec8bf1 100644
--- 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]) ->
-- 
2.40.0