diff options
author | Siri Hansen <[email protected]> | 2017-07-06 16:59:47 +0200 |
---|---|---|
committer | Siri Hansen <[email protected]> | 2017-09-15 17:07:50 +0200 |
commit | 09e2288b7a42345ea76e5e23ad93346c63efb06d (patch) | |
tree | 80a0814a8156544348979fcb26653fce01f6734c /lib/common_test/test_server/ts_erl_config.erl | |
parent | 532ab69fce9b7d1dc6974632ed8d17fdab68bd1a (diff) | |
download | otp-09e2288b7a42345ea76e5e23ad93346c63efb06d.tar.gz otp-09e2288b7a42345ea76e5e23ad93346c63efb06d.tar.bz2 otp-09e2288b7a42345ea76e5e23ad93346c63efb06d.zip |
common_test: Do not use deprecated functions in string(3)
Diffstat (limited to 'lib/common_test/test_server/ts_erl_config.erl')
-rw-r--r-- | lib/common_test/test_server/ts_erl_config.erl | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/lib/common_test/test_server/ts_erl_config.erl b/lib/common_test/test_server/ts_erl_config.erl index 032593bdda..c7fe4ccf83 100644 --- a/lib/common_test/test_server/ts_erl_config.erl +++ b/lib/common_test/test_server/ts_erl_config.erl @@ -311,7 +311,7 @@ lib_dir(Vars, Lib) -> end, CLibDir = filename:join(CLibDirList), Cmd = "ls -d " ++ CLibDir ++ "*", - XLibDir = lists:last(string:tokens(os:cmd(Cmd),"\n")), + XLibDir = lists:last(string:lexemes(os:cmd(Cmd),"\n")), case file:list_dir(XLibDir) of {error, enoent} -> []; @@ -361,15 +361,11 @@ emu_vars(Vars) -> {erl_name, atom_to_list(lib:progname())}|Vars]. is_source_build() -> - string:str(erlang:system_info(system_version), "[source]") > 0. + string:find(erlang:system_info(system_version), "source") =/= nomatch. is_debug_build() -> - case catch string:str(erlang:system_info(system_version), "debug") of - Int when is_integer(Int), Int > 0 -> - true; - _ -> - false - end. + string:find(erlang:system_info(system_version), "debug") =/= nomatch. + %% %% ssl_libdir %% |