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

openSUSE Build Service is sponsored by