File 3439-kernel-Log-when-remsh-connection-attempt-fails.patch of Package erlang
From a36ab301d1fc348c6a54e3d188c506a1da0c0bc5 Mon Sep 17 00:00:00 2001
From: Lukas Larsson <lukas@erlang.org>
Date: Mon, 8 Mar 2021 10:04:18 +0100
Subject: [PATCH 09/11] kernel: Log when -remsh connection attempt fails
---
lib/kernel/src/user_drv.erl | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/lib/kernel/src/user_drv.erl b/lib/kernel/src/user_drv.erl
index 6d4163e744..8edec7c850 100644
--- a/lib/kernel/src/user_drv.erl
+++ b/lib/kernel/src/user_drv.erl
@@ -25,6 +25,8 @@
-export([interfaces/1]).
+-include_lib("kernel/include/logger.hrl").
+
-define(OP_PUTC,0).
-define(OP_MOVE,1).
-define(OP_INSC,2).
@@ -128,8 +130,12 @@ server1(Iport, Oport, Shell) ->
%% are running using "-sname undefined".
_ = net_kernel:start([undefined, shortnames]),
NodeName = append_hostname(Node, net_kernel:nodename()),
- true = net_kernel:connect_node(NodeName),
- NodeName;
+ case net_kernel:connect_node(NodeName) of
+ true ->
+ NodeName;
+ _Else ->
+ ?LOG_ERROR("Could not connect to ~p",[Node])
+ end;
true ->
append_hostname(Node, node())
end,
--
2.26.2