[kernel|gen-tcp-socket] Changed the behaviour of shutdown

The behaviour of shutdown was changed to be more compatible with
the "old" gen_tcp (that is, gen_tcp used with inet_backend = inet,
which is *currently* default).

OTP-18080

1 files changed, 11 insertions, 1 deletions

diff --git a/lib/kernel/src/gen_tcp_socket.erl b/lib/kernel/src/gen_tcp_socket.erl
index 62c0150679..b6defafe83 100644
--- a/lib/kernel/src/gen_tcp_socket.erl
+++ b/lib/kernel/src/gen_tcp_socket.erl
@@ -1701,10 +1701,20 @@ handle_event(Type, Content, State, P_D) ->
 %% Event handler helpers
 
 
-%% We only accept/perform shutdown when socket is 'connected'.
+%% We only accept/perform shutdown when socket is 'connected'
+%% We only accept/perform shutdown when socket is 'connected'
+%% (or closed_read | closed_write).
 %% This is done to be "compatible" with the inet-driver!
 
 handle_shutdown(#params{socket = Socket},
+                closed_write = _State,
+                read = How) ->
+    handle_shutdown2(Socket, closed_read_write, How);
+handle_shutdown(#params{socket = Socket},
+                closed_read = _State,
+                write = How) ->
+    handle_shutdown2(Socket, closed_read_write, How);
+handle_shutdown(#params{socket = Socket},
                 connected = _State,
                 write = How) ->
     {keep, socket:shutdown(Socket, How)};