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

Portability via filename:join/1

Browse source
This commit is contained in:
Scott Lystig Fritchie 2011-08-23 14:22:04 -05:00
parent f79290dc9c
commit b674ea19a4
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/rebar_eunit.erl
View file

@ -528,8 +528,9 @@ kill_extras(Pids) ->
reconstruct_app_env_vars([App|Apps]) -> reconstruct_app_env_vars([App|Apps]) ->
CmdLine0 = proplists:get_value(App, init:get_arguments(), []), CmdLine0 = proplists:get_value(App, init:get_arguments(), []),
CmdVars = [{list_to_atom(K), list_to_atom(V)} || {K, V} <- CmdLine0], CmdVars = [{list_to_atom(K), list_to_atom(V)} || {K, V} <- CmdLine0],
AppFile = (catch code:lib_dir(App) ++ AppFile = (catch filename:join([code:lib_dir(App),
"/ebin/" ++ atom_to_list(App) ++ ".app"), "ebin",
atom_to_list(App) ++ ".app"])),
AppVars = case file:consult(AppFile) of AppVars = case file:consult(AppFile) of
{ok, [{application, App, Ps}]} -> {ok, [{application, App, Ps}]} ->
proplists:get_value(env, Ps, []); proplists:get_value(env, Ps, []);