util.stanza: Make xml_escape publicly accessible

1 files changed, 6 insertions, 3 deletions

diff --git a/util/stanza.lua b/util/stanza.lua
index 3bf7ea58..7b04c508 100644
--- a/util/stanza.lua
+++ b/util/stanza.lua
@@ -118,10 +118,13 @@ function stanza_mt:childtags()
 	                                    
 end
 
-local xml_escape = (function()
+local xml_escape
+do
 	local escape_table = { ["'"] = "&apos;", ["\""] = "&quot;", ["<"] = "&lt;", [">"] = "&gt;", ["&"] = "&amp;" };
-	return function(str) return (s_gsub(str, "['&<>\"]", escape_table)); end
-end)();
+	function xml_escape(str) return (s_gsub(str, "['&<>\"]", escape_table)); end
+	_M.xml_escape = xml_escape;
+end
+
 local function _dostring(t, buf, self, xml_escape)
 	local nsid = 0;
 	local name = t.name