From 6a37d426a3f85a59adf8769d65b009012fa7d701 Mon Sep 17 00:00:00 2001 From: Fredrik Gustafsson Date: Thu, 25 Oct 2012 10:34:15 +0200 Subject: ssh_opts is now a proper list --- lib/ssh/src/ssh_connection_manager.erl | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'lib/ssh/src') diff --git a/lib/ssh/src/ssh_connection_manager.erl b/lib/ssh/src/ssh_connection_manager.erl index 16a31459e7..dd31fe4760 100644 --- a/lib/ssh/src/ssh_connection_manager.erl +++ b/lib/ssh/src/ssh_connection_manager.erl @@ -548,7 +548,7 @@ handle_normal_password(Opts) -> Opts; _Password -> NewOpts = [{password, undefined}|lists:keydelete(password, 1, SshOpts)], - lists:merge(NewOpts, lists:keydelete(ssh_opts, 1, Opts)) + [{ssh_opts, NewOpts}|lists:keydelete(ssh_opts, 1, Opts)] end end. handle_dsa_password(Opts) -> @@ -560,11 +560,12 @@ handle_dsa_password(Opts) -> false -> Opts; _Password -> - NewOpts = [{dsa_pass_phase, undefined}|lists:keydelete(password, 1, SshOpts)], - lists:merge(NewOpts, lists:keydelete(ssh_opts, 1, Opts)) + NewOpts = [{dsa_pass_phrase, undefined}|lists:keydelete(dsa_pass_phrase, 1, SshOpts)], + [{ssh_opts, NewOpts}|lists:keydelete(ssh_opts, 1, Opts)] end end. handle_rsa_password(Opts) -> + io:format("rsa"), case proplists:get_value(ssh_opts, Opts, false) of false -> Opts; @@ -573,8 +574,9 @@ handle_rsa_password(Opts) -> false -> Opts; _Password -> - NewOpts = [{rsa_pass_phase, undefined}|lists:keydelete(password, 1, SshOpts)], - lists:merge(NewOpts, lists:keydelete(ssh_opts, 1, Opts)) + io:format("rsa_2"), + NewOpts = [{rsa_pass_phrase, undefined}|lists:keydelete(rsa_pass_phrase, 1, SshOpts)], + [{ssh_opts, NewOpts}|lists:keydelete(ssh_opts, 1, Opts)] end end. %%-------------------------------------------------------------------- -- cgit v1.2.3