Don't try to reply to failed cast messages

project-fifo · Nov 4, 2015 · 756418e · 756418e
1 parent 3d8a4e3
commit 756418e
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/libchunter_fsm.erl b/src/libchunter_fsm.erl
@@ -83,7 +83,12 @@ connecting(_Event, #state{server=Server,
         {ok, Socket} ->
             {next_state, sending, State#state{socket = Socket}, 0};
         _ ->
-            gen_server:reply(From, {error, connection_failed}),
+            case From of
+                Pid when is_pid(Pid) ->
+                    gen_server:reply(From, {error, connection_failed});
+                _ ->
+                    ok
+            end,
             {next_state, closing, State, 0}
     end.