diff options
| author | Ingela Anderton Andin <[email protected]> | 2014-09-17 17:04:34 +0200 |
|---|---|---|
| committer | Ingela Anderton Andin <[email protected]> | 2014-09-25 20:03:06 +0200 |
| commit | 19aa8b2e1e11f1da4723dbcce427831eca17d54e (patch) | |
| tree | f5695a31cfa36daaaa7ec34691d1d24fabbf259c /lib/ssh/src/ssh_system_sup.erl | |
| parent | 828b5a03825e168d19715ed65876008b9fc00c39 (diff) | |
| download | otp-19aa8b2e1e11f1da4723dbcce427831eca17d54e.tar.gz otp-19aa8b2e1e11f1da4723dbcce427831eca17d54e.tar.bz2 otp-19aa8b2e1e11f1da4723dbcce427831eca17d54e.zip | |
ssh: Adjust supervisor tree to make sure new listning
options are honored
Diffstat (limited to 'lib/ssh/src/ssh_system_sup.erl')
| -rw-r--r-- | lib/ssh/src/ssh_system_sup.erl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/ssh/src/ssh_system_sup.erl b/lib/ssh/src/ssh_system_sup.erl index 848133f838..660fe8bb65 100644 --- a/lib/ssh/src/ssh_system_sup.erl +++ b/lib/ssh/src/ssh_system_sup.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2013. All Rights Reserved. +%% Copyright Ericsson AB 2008-2014. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -173,8 +173,8 @@ ssh_acceptor_sup([_ | Rest]) -> ssh_acceptor_sup(Rest). stop_acceptor(Sup) -> - [Name] = - [SupName || {SupName, _, _, [ssh_acceptor_sup]} <- + [{Name, AcceptorSup}] = + [{SupName, ASup} || {SupName, ASup, _, [ssh_acceptor_sup]} <- supervisor:which_children(Sup)], - supervisor:terminate_child(Sup, Name). + supervisor:terminate_child(AcceptorSup, Name). |