From 0b281746c20fdc77fa0a825b0000ff751bbb92d9 Mon Sep 17 00:00:00 2001
From: Alexey Shchepin <alexey@process-one.net>
Date: Fri, 1 Dec 2006 17:19:04 +0000
Subject: * src/ejabberd_receiver.erl: Bugfix

SVN Revision: 688
---
 src/ejabberd_receiver.erl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/ejabberd_receiver.erl b/src/ejabberd_receiver.erl
index dfa03fd4e..aa39dfbdc 100644
--- a/src/ejabberd_receiver.erl
+++ b/src/ejabberd_receiver.erl
@@ -117,7 +117,12 @@ handle_call({starttls, TLSSocket}, _From,
 	    #state{xml_stream_state = XMLStreamState,
 		   c2s_pid = C2SPid,
 		   max_stanza_size = MaxStanzaSize} = State) ->
-    xml_stream:close(XMLStreamState),
+    if
+	XMLStreamState /= undefined ->
+	    xml_stream:close(XMLStreamState);
+	true ->
+	    ok
+    end,
     NewXMLStreamState = xml_stream:new(C2SPid, MaxStanzaSize),
     NewState = State#state{socket = TLSSocket,
 			   sock_mod = tls,
-- 
cgit v1.2.3