From 4eaa903c25d5fceb473013f4afb207a3fd82ab2e Mon Sep 17 00:00:00 2001
From: Piotr Dorobisz <piotr.dorobisz@erlang-solutions.com>
Date: Wed, 9 Mar 2011 13:14:34 +0100
Subject: BUGFIX Fetch fails when nodes on the same host have different cwd

---
 lib/observer/src/ttb.erl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'lib/observer')

diff --git a/lib/observer/src/ttb.erl b/lib/observer/src/ttb.erl
index 2498be150d..66b8d049d1 100644
--- a/lib/observer/src/ttb.erl
+++ b/lib/observer/src/ttb.erl
@@ -668,8 +668,11 @@ fetch(Localhost,Dir,Node,MetaFile) ->
 	    Files = get_filenames(Node,MetaFile),
 	    lists:foreach(
 	      fun(File0) ->
-		      File = filename:join(Dir,filename:basename(File0)),
-		      file:rename(File0,File)
+		      %%Other nodes may still have different CWD
+		      {ok, Cwd} = rpc:call(Node, file, get_cwd, []),
+		      File1 = filename:join(Cwd, File0),
+		      File = filename:join(Dir,filename:basename(File1)),
+		      file:rename(File1,File)
 	      end,
 	      Files);
 	false ->
-- 
cgit v1.2.3