diff options
| author | Dan Gudmundsson <[email protected]> | 2017-06-30 12:25:39 +0200 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2017-09-15 17:07:49 +0200 |
| commit | 91ddeccdf27bc5fb1252ebcd839d4d32529bee52 (patch) | |
| tree | e87ee6bafc48e9affb5c6baee5333f86904a84fe | |
| parent | 9848b6c8c1da15137f71b57c9db923c5e5162e82 (diff) | |
| download | otp-91ddeccdf27bc5fb1252ebcd839d4d32529bee52.tar.gz otp-91ddeccdf27bc5fb1252ebcd839d4d32529bee52.tar.bz2 otp-91ddeccdf27bc5fb1252ebcd839d4d32529bee52.zip | |
et: Do not use deprecated functions in string(3)
| -rw-r--r-- | lib/et/src/et_collector.erl | 2 | ||||
| -rw-r--r-- | lib/et/src/et_wx_contents_viewer.erl | 2 | ||||
| -rw-r--r-- | lib/et/src/et_wx_viewer.erl | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/lib/et/src/et_collector.erl b/lib/et/src/et_collector.erl index aba90b0be1..f51813a256 100644 --- a/lib/et/src/et_collector.erl +++ b/lib/et/src/et_collector.erl @@ -1135,7 +1135,7 @@ handle_info(Info, S) -> noreply(S). listen_on_trace_port(Node, Port, S) -> - [_Name, Host] = string:tokens(atom_to_list(Node), [$@]), + [_Name, Host] = string:lexemes(atom_to_list(Node), [$@]), case catch start_trace_client(self(), ip, {Host, Port}) of {trace_client_pid, RemotePid} -> rpc:call(Node, et_selector, change_pattern, [S#state.trace_pattern]), diff --git a/lib/et/src/et_wx_contents_viewer.erl b/lib/et/src/et_wx_contents_viewer.erl index 247dd4c7ba..da6cdec9b5 100644 --- a/lib/et/src/et_wx_contents_viewer.erl +++ b/lib/et/src/et_wx_contents_viewer.erl @@ -659,7 +659,7 @@ pad_string(Int, MinLen, Char, Dir) when is_integer(Int) -> pad_string(Atom, MinLen, Char, Dir) when is_atom(Atom) -> pad_string(atom_to_list(Atom), MinLen, Char, Dir); pad_string(String, MinLen, Char, Dir) when is_integer(MinLen), MinLen >= 0 -> - Len = length(String), + Len = string:length(String), case {Len >= MinLen, Dir} of {true, _} -> String; diff --git a/lib/et/src/et_wx_viewer.erl b/lib/et/src/et_wx_viewer.erl index 9613299e6b..8b158c3e61 100644 --- a/lib/et/src/et_wx_viewer.erl +++ b/lib/et/src/et_wx_viewer.erl @@ -2077,7 +2077,7 @@ name_to_string(Name) -> pad_string(Atom, MinLen) when is_atom(Atom) -> pad_string(atom_to_list(Atom), MinLen); pad_string(String, MinLen) when is_integer(MinLen), MinLen >= 0 -> - Len = length(String), + Len = string:length(String), case Len >= MinLen of true -> String; |