diff options
| author | Siri Hansen <siri@erlang.org> | 2017-07-06 16:59:47 +0200 |
|---|---|---|
| committer | Siri Hansen <siri@erlang.org> | 2017-09-15 17:07:50 +0200 |
| commit | 09e2288b7a42345ea76e5e23ad93346c63efb06d (patch) | |
| tree | 80a0814a8156544348979fcb26653fce01f6734c /lib/common_test/src/ct_conn_log_h.erl | |
| parent | 532ab69fce9b7d1dc6974632ed8d17fdab68bd1a (diff) | |
| download | erlang-09e2288b7a42345ea76e5e23ad93346c63efb06d.tar.gz | |
common_test: Do not use deprecated functions in string(3)
Diffstat (limited to 'lib/common_test/src/ct_conn_log_h.erl')
| -rw-r--r-- | lib/common_test/src/ct_conn_log_h.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/common_test/src/ct_conn_log_h.erl b/lib/common_test/src/ct_conn_log_h.erl index cf0a228e1b..3e83020f45 100644 --- a/lib/common_test/src/ct_conn_log_h.erl +++ b/lib/common_test/src/ct_conn_log_h.erl @@ -224,7 +224,7 @@ now_to_time({_,_,MicroS}=Now) -> {calendar:now_to_local_time(Now),MicroS}. pretty_head({{{Y,Mo,D},{H,Mi,S}},MicroS},ConnMod,Text0) -> - Text = string:to_upper(atom_to_list(ConnMod) ++ Text0), + Text = string:uppercase(atom_to_list(ConnMod) ++ Text0), io_lib:format("= ~s ==== ~s-~s-~w::~s:~s:~s,~s ", [Text,t(D),month(Mo),Y,t(H),t(Mi),t(S), micro2milli(MicroS)]). @@ -275,7 +275,7 @@ pad0(N,Str) -> lists:duplicate(N-M,$0) ++ Str. pad_char_end(N,Str,Char) -> - case length(lists:flatten(Str)) of + case string:length(Str) of M when M<N -> Str ++ lists:duplicate(N-M,Char); _ -> Str end. |