summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSverker Eriksson <sverker@erlang.org>2023-05-04 16:59:09 +0200
committerSverker Eriksson <sverker@erlang.org>2023-05-04 16:59:09 +0200
commit7a54fbf000d414c5d3b69ee524f9ecb2d57db6d1 (patch)
tree4f63982c6f1a1b7bdf1f207630f622b23741284a
parenta253fcc328f8f085a3787a33fafef297c442ec52 (diff)
parent2b2034cd070afccfaccf4ff8b3a9050eb090290e (diff)
downloaderlang-7a54fbf000d414c5d3b69ee524f9ecb2d57db6d1.tar.gz
Merge branch 'sverker/cpu_sup-port-close-error/OTP-18559' into maint
-rw-r--r--lib/os_mon/src/cpu_sup.erl4
-rw-r--r--lib/os_mon/src/memsup.erl2
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/os_mon/src/cpu_sup.erl b/lib/os_mon/src/cpu_sup.erl
index be917021e7..adf1f45265 100644
--- a/lib/os_mon/src/cpu_sup.erl
+++ b/lib/os_mon/src/cpu_sup.erl
@@ -613,8 +613,8 @@ port_server_loop(Port, Timeout) ->
% Close port and this server
{Pid, ?quit} ->
- port_command(Port, ?quit),
- port_close(Port),
+ Port ! {self(), {command, ?quit}},
+ Port ! {self(), close},
Pid ! {self(), {data, quit}},
ok;
diff --git a/lib/os_mon/src/memsup.erl b/lib/os_mon/src/memsup.erl
index 1c93bfbae4..c467adc2e5 100644
--- a/lib/os_mon/src/memsup.erl
+++ b/lib/os_mon/src/memsup.erl
@@ -653,7 +653,7 @@ start_portprogram() ->
port_shutdown(Port) ->
Port ! {self(), {command, [?EXIT]}},
- port_close(Port).
+ Port ! {self(), close}.
%% The connected process loops are a bit awkward (several different
%% functions doing almost the same thing) as