Fix case clause

Fixes #1746
2017-05-25 13:46:17 +03:00 · 2017-05-25 13:46:17 +03:00 · 50327a0cfc
parent 5802062746
commit 50327a0cfc
1 changed files with 7 additions and 3 deletions
--- a/src/ejabberd_s2s.erl
+++ b/src/ejabberd_s2s.erl
@ -480,9 +480,13 @@ new_connection(MyServer, Server, From, FromTo,
 	end,
    TRes = mnesia:transaction(F),
    case TRes of
-      {atomic, Pid} ->
-	    ejabberd_s2s_out:connect(Pid),
-	    [Pid];
+      {atomic, Pid1} ->
+	    if Pid1 == Pid ->
+		    ejabberd_s2s_out:connect(Pid);
+	       true ->
+		    ejabberd_s2s_out:stop(Pid)
+	    end,
+	    [Pid1];
      {aborted, Reason} ->
 	    ?ERROR_MSG("failed to register connection ~s -> ~s: ~p",
 		       [MyServer, Server, Reason]),