From 0d331c232ea89450176140a88e79f9a514ed8899 Mon Sep 17 00:00:00 2001
From: Peter Andersson <peppe@erlang.org>
Date: Wed, 11 Sep 2013 18:27:18 +0200
Subject: Make builtin hook respond to init:stop

---
 lib/common_test/src/cth_log_redirect.erl | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'lib/common_test')

diff --git a/lib/common_test/src/cth_log_redirect.erl b/lib/common_test/src/cth_log_redirect.erl
index 11af1aa346..4ee7e48a67 100644
--- a/lib/common_test/src/cth_log_redirect.erl
+++ b/lib/common_test/src/cth_log_redirect.erl
@@ -135,8 +135,19 @@ handle_event(Event, #eh_state{log_func = LogFunc} = State) ->
     end,
     {ok, State}.
 
+handle_info({'EXIT',User,killed}, State) ->
+    case whereis(user) of
+	%% init:stop/1/2 has been called, let's finish!
+	undefined ->
+	    remove_handler;
+	User ->
+	    remove_handler;
+	_ ->
+	    {ok,State}
+    end;
 
-handle_info(_,State) -> {ok, State}.
+handle_info(_, State) -> 
+    {ok,State}.
 
 handle_call(flush,State) ->
     {ok, ok, State};
-- 
cgit v1.2.3