1 files changed, 46 insertions, 15 deletions

diff --git a/lib/ssh/test/ssh_test_lib.erl b/lib/ssh/test/ssh_test_lib.erl
index c6541461a1..6233680dce 100644
--- a/lib/ssh/test/ssh_test_lib.erl
+++ b/lib/ssh/test/ssh_test_lib.erl
@@ -71,7 +71,7 @@ daemon_port(Port, _) -> Port.
 
 
 std_daemon(Config, ExtraOpts) ->
-    PrivDir = ?config(priv_dir, Config),
+    PrivDir = proplists:get_value(priv_dir, Config),
     UserDir = filename:join(PrivDir, nopubkey), % to make sure we don't use public-key-auth
     file:make_dir(UserDir),
     std_daemon1(Config, 
@@ -80,13 +80,13 @@ std_daemon(Config, ExtraOpts) ->
 		     {user_passwords, [{"usr1","pwd1"}]}]).
 
 std_daemon1(Config, ExtraOpts) ->
-    SystemDir = ?config(data_dir, Config),
+    SystemDir = proplists:get_value(data_dir, Config),
     {_Server, _Host, _Port} = ssh_test_lib:daemon([{system_dir, SystemDir},
 						   {failfun, fun ssh_test_lib:failfun/2}
 						   | ExtraOpts]).
 
 std_connect(Config, Host, Port, ExtraOpts) ->
-    UserDir = ?config(priv_dir, Config),
+    UserDir = proplists:get_value(priv_dir, Config),
     _ConnectionRef =
 	ssh_test_lib:connect(Host, Port, [{silently_accept_hosts, true},
 					  {user_dir, UserDir},
@@ -99,7 +99,7 @@ std_simple_sftp(Host, Port, Config) ->
     std_simple_sftp(Host, Port, Config, []).
 
 std_simple_sftp(Host, Port, Config, Opts) ->
-    UserDir = ?config(priv_dir, Config),
+    UserDir = proplists:get_value(priv_dir, Config),
     DataFile = filename:join(UserDir, "test.data"),
     ConnectionRef = ssh_test_lib:std_connect(Config, Host, Port, Opts),
     {ok, ChannelRef} = ssh_sftp:start_channel(ConnectionRef),
@@ -655,17 +655,48 @@ sshc(Tag) ->
      ).
 
 ssh_type() ->
-     case os:find_executable("ssh") of
-	 false -> not_found;
-	 _ ->
-	     case os:cmd("ssh -V") of
-		 "OpenSSH" ++ _ ->
-		     openSSH;
-		 Str -> 
-		     ct:log("ssh client ~p is unknown",[Str]),
-		     unknown
-	     end
-     end.
+    Parent = self(),
+    Pid = spawn(fun() -> 
+			Parent ! {ssh_type,self(),ssh_type1()}
+		end),
+    MonitorRef = monitor(process, Pid),
+    receive
+	{ssh_type, Pid, Result} ->
+	    demonitor(MonitorRef),
+	    Result;
+	{'DOWN', MonitorRef, process, Pid, _Info} ->
+	    ct:log("~p:~p Process DOWN",[?MODULE,?LINE]),
+	    not_found
+    after
+	10000 ->
+	    ct:log("~p:~p Timeout",[?MODULE,?LINE]),
+	    demonitor(MonitorRef),
+	    not_found
+    end.
+
+
+ssh_type1() ->
+    try 
+	case os:find_executable("ssh") of
+	    false -> 
+		ct:log("~p:~p Executable \"ssh\" not found",[?MODULE,?LINE]),
+		not_found;
+	    _ ->
+		case os:cmd("ssh -V") of
+		    "OpenSSH" ++ _ ->
+			openSSH;
+		    Str -> 
+			ct:log("ssh client ~p is unknown",[Str]),
+			unknown
+		end
+	end
+    catch
+	Class:Exception -> 
+	    ct:log("~p:~p Exception ~p:~p",[?MODULE,?LINE,Class,Exception]),
+	    not_found
+    end.
+
+		   
 
 algo_intersection([], _) -> [];
 algo_intersection(_, []) -> [];