Browse Source

Always ignore the modules list in original .app/.app.src file

Some packages have invalid lists.
Loïc Hoguin 10 years ago
parent
commit
adf3e29b32
1 changed files with 1 additions and 1 deletions
  1. 1 1
      core/deps.mk

+ 1 - 1
core/deps.mk

@@ -378,7 +378,7 @@ define dep_autopatch_appsrc.erl
 		true ->
 			fun() ->
 				{ok, [{application, $(1), L}]} = file:consult(AppSrcIn),
-				L2 = case lists:keyfind(modules, 1, L) of {_, _} -> L; false -> [{modules, []}|L] end,
+				L2 = lists:keystore(modules, 1, L, {modules, []}),
 				L3 = case lists:keyfind(vsn, 1, L2) of {vsn, git} -> lists:keyreplace(vsn, 1, L2, {vsn, "git"}); _ -> L2 end,
 				ok = file:write_file(AppSrcOut, io_lib:format("~p.~n", [{application, $(1), L3}]))
 			end(),