From 8cb3f61f88ee01f4af304622fb021567afa3ac33 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Tue, 14 May 2013 18:50:29 +0200
Subject: Tweak ejabberd_listener to allow ejabberd_xmlrpc work properly

---
 src/ejabberd_listener.erl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/ejabberd_listener.erl b/src/ejabberd_listener.erl
index 1226d9d5d..a953dc9f8 100644
--- a/src/ejabberd_listener.erl
+++ b/src/ejabberd_listener.erl
@@ -176,7 +176,11 @@ listen_tcp(PortIP, Module, SockOpts, Port, IPS) ->
 			catch
 			    _:_ -> []
 			end,
-	    Res = gen_tcp:listen(Port, [binary,
+	    DeliverAs = case Module of
+			    ejabberd_xmlrpc -> list;
+			    _ -> binary
+			end,
+	    Res = gen_tcp:listen(Port, [DeliverAs,
 					{packet, 0},
 					{active, false},
 					{reuseaddr, true},
-- 
cgit v1.2.3