|
@@ -539,7 +539,7 @@ define dep_autopatch_appsrc.erl
|
|
{ok, [{application, $(1), L0}]} = file:consult(AppSrcIn),
|
|
{ok, [{application, $(1), L0}]} = file:consult(AppSrcIn),
|
|
L1 = lists:keystore(modules, 1, L0, {modules, []}),
|
|
L1 = lists:keystore(modules, 1, L0, {modules, []}),
|
|
L2 = case lists:keyfind(vsn, 1, L1) of
|
|
L2 = case lists:keyfind(vsn, 1, L1) of
|
|
- {_, git} -> lists:keyreplace(vsn, 1, L1, {vsn, "git"});
|
|
|
|
|
|
+ {_, git} -> lists:keyreplace(vsn, 1, L1, {vsn, lists:droplast(os:cmd("git describe --dirty --tags --always"))});
|
|
{_, {cmd, _}} -> lists:keyreplace(vsn, 1, L1, {vsn, "cmd"});
|
|
{_, {cmd, _}} -> lists:keyreplace(vsn, 1, L1, {vsn, "cmd"});
|
|
_ -> L1
|
|
_ -> L1
|
|
end,
|
|
end,
|