File 0241-kernel-gen-tcp-socket-Extend-handling-of-c... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 0241-kernel-gen-tcp-socket-Extend-handling-of-call-except.patch of Package erlang (Revision e6fae69e60dcc1918fd2bc4ae52e9ff8)

Currently displaying revision e6fae69e60dcc1918fd2bc4ae52e9ff8 , Show latest

From 9d4127e1c4df84242eb5999d3b36a56ad34625cf Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Tue, 27 Jul 2021 17:11:21 +0200
Subject: [PATCH] [kernel|gen-tcp-socket] Extend handling of call-exceptions

Extend the number of 'exception's we explicitly "take care of"
in the call function.

OTP-17156
---
 lib/kernel/src/gen_tcp_socket.erl | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/lib/kernel/src/gen_tcp_socket.erl b/lib/kernel/src/gen_tcp_socket.erl
index 53ffc515c2..531e613778 100644
--- a/lib/kernel/src/gen_tcp_socket.erl
+++ b/lib/kernel/src/gen_tcp_socket.erl
@@ -1153,7 +1153,16 @@ start_server(ServerData, StartOpts) ->
 
 call(Server, Call) ->
     try gen_statem:call(Server, Call)
-    catch exit:{noproc, {gen_statem, call, _Args}} -> {error, closed}
+    catch
+        exit:{noproc, {gen_statem, call, _Args}} -> {error, closed};
+        exit:{{shutdown, _}, _}                  -> {error, closed};
+        C:E:S ->
+            error_msg("~w call failed: "
+                      "~n      Call:  ~p"
+                      "~n      Class: ~p"
+                      "~n      Error: ~p"
+                      "~n      Stack: ~p", [?MODULE, Call, C, E, S]),
+            erlang:raise(C, E, S)
     end.
 
 stop_server(Server) ->
@@ -2770,3 +2779,9 @@ timeout(EndTime) ->
     end.
 
 -endif.
+
+%% -------------------------------------------------------------------------
+
+error_msg(F, A) ->
+    error_logger:error_msg(F ++ "~n", A).
+
-- 
2.31.1

Places

File 0241-kernel-gen-tcp-socket-Extend-handling-of-call-except.patch of Package erlang (Revision e6fae69e60dcc1918fd2bc4ae52e9ff8)

Places