diff options
author | Hans Nilsson <hans@erlang.org> | 2017-03-21 15:44:44 +0100 |
---|---|---|
committer | Hans Nilsson <hans@erlang.org> | 2017-04-07 10:23:33 +0200 |
commit | 57d994270d63e7a9ce80eece3c1c3aeca79d3ea4 (patch) | |
tree | 99a7aa83a5366ca80ea144bc6fded3eba0a8e5e9 /lib/ssh/src/ssh_system_sup.erl | |
parent | 90aacace4bdb1c883c3829bc66c1c616a81943d9 (diff) | |
download | erlang-57d994270d63e7a9ce80eece3c1c3aeca79d3ea4.tar.gz |
ssh: fix ssh_system_sup naming of Host-Port-Profile
Diffstat (limited to 'lib/ssh/src/ssh_system_sup.erl')
-rw-r--r-- | lib/ssh/src/ssh_system_sup.erl | 16 |
1 files changed, 2 insertions, 14 deletions
diff --git a/lib/ssh/src/ssh_system_sup.erl b/lib/ssh/src/ssh_system_sup.erl index 5a58ef1c44..4083f666c3 100644 --- a/lib/ssh/src/ssh_system_sup.erl +++ b/lib/ssh/src/ssh_system_sup.erl @@ -166,22 +166,10 @@ ssh_subsystem_child_spec(Options) -> id(Sup, Address, Port, Profile) -> - case is_list(Address) of - true -> - {Sup, any, Port, Profile}; - false -> - {Sup, Address, Port, Profile} - end. + {Sup, Address, Port, Profile}. make_name(Address, Port, Profile) -> - case is_list(Address) of - true -> - list_to_atom(lists:flatten(io_lib:format("ssh_system_~p_~p_~p_sup", - [any, Port, Profile]))); - false -> - list_to_atom(lists:flatten(io_lib:format("ssh_system_~p_~p_~p_sup", - [Address, Port, Profile]))) - end. + list_to_atom(lists:flatten(io_lib:format("ssh_system_~s_~p_~p_sup", [Address, Port, Profile]))). ssh_subsystem_sup([{_, Child, _, [ssh_subsystem_sup]} | _]) -> Child; |