From e0d7dd6fa8cbd49a08d9fa90c550b13c21c2dd23 Mon Sep 17 00:00:00 2001
From: Piotr Dorobisz <piotr.dorobisz@erlang-solutions.com>
Date: Wed, 9 Mar 2011 13:41:11 +0100
Subject: BUGFIX Occasional deadlock on ttb:stop

---
 lib/observer/src/ttb.erl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/observer')

diff --git a/lib/observer/src/ttb.erl b/lib/observer/src/ttb.erl
index 0491f3c202..1bc244a0d2 100644
--- a/lib/observer/src/ttb.erl
+++ b/lib/observer/src/ttb.erl
@@ -569,6 +569,8 @@ ensure_fetch_dir(Dir) ->
 stop_return(R,Opts) ->
     case {lists:member(return,Opts),R} of
         {true,_} ->
+            %%Printout moved out of the ttb loop to avoid occasional deadlock
+            io:format("Stored logs in ~s~n",[element(2, R)]),
             R;
         {false,{stopped,_}} ->
             stopped;
@@ -684,7 +686,6 @@ loop(NodeInfo, SessionInfo) ->
 	    ets:delete(?history_table),
 	    wait_for_fetch(AllNodes),
             Absname = filename:absname(Dir),
-	    io:format("Stored logs in ~s~n",[Absname]),
 	    case FetchOrFormat of
 		format -> format(Dir);
 		fetch -> ok
-- 
cgit v1.2.3