diff options
| author | Siri Hansen <[email protected]> | 2017-07-06 17:25:37 +0200 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2017-09-15 17:07:51 +0200 |
| commit | fb9235e7c3a6872a1394e5ba0c78217d9617f8e3 (patch) | |
| tree | 758aa4ef26fac6475883450b4ccc599d23bcc08e /lib/observer/src/ttb.erl | |
| parent | 09e2288b7a42345ea76e5e23ad93346c63efb06d (diff) | |
| download | otp-fb9235e7c3a6872a1394e5ba0c78217d9617f8e3.tar.gz otp-fb9235e7c3a6872a1394e5ba0c78217d9617f8e3.tar.bz2 otp-fb9235e7c3a6872a1394e5ba0c78217d9617f8e3.zip | |
observer: Do not use deprecated functions in string(3)
Diffstat (limited to 'lib/observer/src/ttb.erl')
| -rw-r--r-- | lib/observer/src/ttb.erl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/observer/src/ttb.erl b/lib/observer/src/ttb.erl index 09b0bc6710..98756cfffc 100644 --- a/lib/observer/src/ttb.erl +++ b/lib/observer/src/ttb.erl @@ -100,7 +100,7 @@ do_tracer(Clients,PI,Traci) -> {ok, H} = inet:gethostname(), H; _ -> - [_,H] = string:tokens(atom_to_list(N),"@"), + [_,H] = string:lexemes(atom_to_list(N),"@"), H end, case catch dbg:tracer(N,port,dbg:trace_port(ip,IpPortSpec)) of @@ -944,7 +944,7 @@ receive_files(Dir,Sock,Fd) -> end. host(Node) -> - [_name,Host] = string:tokens(atom_to_list(Node),"@"), + [_name,Host] = string:lexemes(atom_to_list(Node),"@"), Host. @@ -1033,7 +1033,7 @@ collect_files(Dirs) -> lists:map(fun(Dir) -> MetaFiles = filelib:wildcard(filename:join(Dir,"*.ti")), lists:map(fun(M) -> - Sub = string:left(M,length(M)-3), + Sub = filename:rootname(M,".ti"), case filelib:is_file(Sub) of true -> Sub; false -> Sub++".*.wrp" |