diff options
| author | Erlang/OTP <[email protected]> | 2010-04-29 15:25:27 +0000 |
|---|---|---|
| committer | Erlang/OTP <[email protected]> | 2010-04-29 15:25:27 +0000 |
| commit | b328564bfe321c2df597c77fea57566ee8d00f2b (patch) | |
| tree | 48d06057fad0819ebdf2811992631e6ae8ebb2c9 /lib/kernel/src/inet_gethost_native.erl | |
| parent | c8fbe3f82050477a713b22b5d3b671718588aa79 (diff) | |
| parent | 75ea6a39d1cf4bd4a67391595b90d8d90155d012 (diff) | |
| download | otp-b328564bfe321c2df597c77fea57566ee8d00f2b.tar.gz otp-b328564bfe321c2df597c77fea57566ee8d00f2b.tar.bz2 otp-b328564bfe321c2df597c77fea57566ee8d00f2b.zip | |
Merge branch 'ks/kernel' into dev
* ks/kernel:
kernel: Clean up as suggested by tidier
OTP-8606 ks/kernel
Diffstat (limited to 'lib/kernel/src/inet_gethost_native.erl')
| -rw-r--r-- | lib/kernel/src/inet_gethost_native.erl | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lib/kernel/src/inet_gethost_native.erl b/lib/kernel/src/inet_gethost_native.erl index b7b3007b99..db3e44ce6f 100644 --- a/lib/kernel/src/inet_gethost_native.erl +++ b/lib/kernel/src/inet_gethost_native.erl @@ -154,7 +154,7 @@ run_once() -> {Port, {data, <<1:32, BinReply/binary>>}} -> Pid ! {R, {ok, BinReply}} after Timeout -> - Pid ! {R,{error,timeout}} + Pid ! {R, {error, timeout}} end. -spec terminate(term(), pid()) -> 'ok'. @@ -342,14 +342,14 @@ pick_client(State,RID,Clid) -> {last, SoleClient}; % Note, not removed, the caller % should cleanup request data CList -> - case lists:keysearch(Clid,1,CList) of - {value, Client} -> + case lists:keyfind(Clid,1,CList) of + false -> + false; + Client -> NCList = lists:keydelete(Clid,1,CList), ets:insert(State#state.requests, R#request{clients = NCList}), - {more, Client}; - false -> - false + {more, Client} end end end. @@ -387,8 +387,7 @@ restart_port(#state{port = Port, requests = Requests}) -> end, Requests), NewPort. - - + do_open_port(Poolsize, ExtraArgs) -> try |