From ac6ae9e8dd5c3d6bf3da5830355da371c0fa41b0 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Mon, 21 Jun 2010 22:49:34 +0200
Subject: [PATCH] Fix xmlcdata binary content

---
 src/web/ejabberd_http_poll.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/web/ejabberd_http_poll.erl b/src/web/ejabberd_http_poll.erl
index c174bb716..f18774b2e 100644
--- a/src/web/ejabberd_http_poll.erl
+++ b/src/web/ejabberd_http_poll.erl
@@ -170,7 +170,7 @@ process(_, _Request) ->
 
 %% Code copied from mod_http_bind.erl and customized
 get_human_html_xmlel() ->
-    Heading = "ejabberd " ++ atom_to_list(?MODULE),
+    Heading = list_to_binary("ejabberd " ++ atom_to_list(?MODULE)),
     H = #xmlel{name = h1, children = [#xmlcdata{cdata = Heading}]},
     Par1 = #xmlel{name = p, children =
 		  [#xmlcdata{cdata = <<"An implementation of ">>},