瀏覽代碼

Portability via filename:join/1

pull/3/head
Scott Lystig Fritchie 14 年之前
父節點
當前提交
b674ea19a4
共有 1 個文件被更改,包括 3 次插入2 次删除
  1. +3
    -2
      src/rebar_eunit.erl

+ 3
- 2
src/rebar_eunit.erl 查看文件

@ -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) ++
"/ebin/" ++ atom_to_list(App) ++ ".app"),
AppFile = (catch filename:join([code:lib_dir(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, []);

Loading…
取消
儲存