github/rebar
1
0
Fork 0
mirror of https://github.com/correl/rebar.git synced 2024-12-18 11:06:20 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix Dialyzer warnings

Browse source
This commit is contained in:
Tuncer Ayaz 2011-08-25 11:41:22 +02:00
parent 9832a5c5c6
commit 8376693a3f
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
src/rebar_eunit.erl
View file

@ -471,25 +471,25 @@ reset_after_eunit({OldProcesses, WasAlive, OldAppEnvs, _OldACs}) ->
if not WasAlive andalso IsAlive ->
?DEBUG("Stopping net kernel....\n", []),
erl_epmd:stop(),
net_kernel:stop(),
_ = net_kernel:stop(),
pause_until_net_kernel_stopped();
true ->
ok
end,
Processes = erlang:processes(),
kill_extras(Processes -- OldProcesses),
_ = kill_extras(Processes -- OldProcesses),
OldApps = [App || {App, _} <- OldAppEnvs],
Apps = get_app_names(),
[begin
case lists:member(App, OldApps) of
true -> ok;
false -> application:stop(App)
end,
application:unset_env(App, K)
end || App <- Apps, App /= rebar,
{K, _V} <- application:get_all_env(App)],
_ = [begin
_ = case lists:member(App, OldApps) of
true -> ok;
false -> application:stop(App)
end,
ok = application:unset_env(App, K)
end || App <- Apps, App /= rebar,
{K, _V} <- application:get_all_env(App)],
reconstruct_app_env_vars(Apps),
ok.
@ -538,7 +538,7 @@ kill_extras(Pids) ->
?DEBUG("No processes to kill\n", []),
[];
Else ->
[wait_until_dead(Pid) || Pid <- Else],
lists:foreach(fun(Pid) -> wait_until_dead(Pid) end, Else),
Else
end.
@ -556,7 +556,7 @@ reconstruct_app_env_vars([App|Apps]) ->
end,
AllVars = CmdVars ++ AppVars,
?DEBUG("Reconstruct ~p ~p\n", [App, AllVars]),
[application:set_env(App, K, V) || {K, V} <- AllVars],
lists:foreach(fun({K, V}) -> application:set_env(App, K, V) end, AllVars),
reconstruct_app_env_vars(Apps);
reconstruct_app_env_vars([]) ->
ok.