Make sure to pass dir of app when invoking git; enhance shell logging output

This commit is contained in:
Dave Smith 2011-03-29 13:10:52 -06:00
parent 27de53125e
commit 4be3631687
2 changed files with 5 additions and 4 deletions

View file

@ -89,7 +89,8 @@ app_applications(AppFile) ->
app_vsn(AppFile) ->
case load_app_file(AppFile) of
{ok, _, AppInfo} ->
vcs_vsn(get_value(vsn, AppInfo, AppFile));
AppDir = filename:dirname(filename:dirname(AppFile)),
vcs_vsn(get_value(vsn, AppInfo, AppFile), AppDir);
{error, Reason} ->
?ABORT("Failed to extract vsn from ~s: ~p\n",
[AppFile, Reason])
@ -125,12 +126,12 @@ get_value(Key, AppInfo, AppFile) ->
Value
end.
vcs_vsn(Vcs) ->
vcs_vsn(Vcs, Dir) ->
case vcs_vsn_cmd(Vcs) of
{unknown, VsnString} ->
VsnString;
Cmd ->
{ok, VsnString} = rebar_utils:sh(Cmd, [{use_stdout, false}]),
{ok, VsnString} = rebar_utils:sh(Cmd, [{cd, Dir}, {use_stdout, false}]),
string:strip(VsnString, right, $\n)
end.

View file

@ -75,7 +75,7 @@ get_arch() ->
%% Val = string() | false
%%
sh(Command0, Options0) ->
?INFO("sh: ~s\n~p\n", [Command0, Options0]),
?INFO("sh info:\n\tcwd: ~p\n\tcmd: ~s\n\topts: ~p\n", [get_cwd(), Command0, Options0]),
DefaultOptions = [use_stdout, abort_on_error],
Options = [expand_sh_flag(V)