From 709534a5417f20f8edda1d3664669ed9d3129354 Mon Sep 17 00:00:00 2001
From: Hans Nilsson <hans@erlang.org>
Date: Thu, 1 Nov 2018 14:44:44 +0100
Subject: ssh: Generalize unpublished test support option

Also rename the corresponding testcase in ssh_options_SUITE and add logging.
---
 lib/ssh/src/ssh_auth.erl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'lib/ssh/src/ssh_auth.erl')

diff --git a/lib/ssh/src/ssh_auth.erl b/lib/ssh/src/ssh_auth.erl
index 1972468b8b..9632168e65 100644
--- a/lib/ssh/src/ssh_auth.erl
+++ b/lib/ssh/src/ssh_auth.erl
@@ -592,11 +592,11 @@ prompt_user_for_passwords(Name, Instr, PromptInfos, Opts) ->
 	      PromptInfos).
 
 keyboard_interact_fun(KbdInteractFun, Name, Instr,  PromptInfos) ->
-    Prompts = lists:map(fun({Prompt,_Echo}) -> Prompt end,  PromptInfos),
-    case KbdInteractFun(Name, Instr, Prompts) of
-	Rs when length(Rs) == length(PromptInfos) ->
-	    Rs;
-	_Rs ->
+    case KbdInteractFun(Name, Instr, PromptInfos) of
+	Responses when is_list(Responses),
+                     length(Responses) == length(PromptInfos) ->
+	    Responses;
+	_ ->
             nok
     end.
 
-- 
cgit v1.2.3