make check_xref work when plugins dir is empty

This commit is contained in:
Matthias Radestock 2013-01-15 18:39:00 +00:00
parent ac9970ae9b
commit 28404f6815
1 changed files with 3 additions and 8 deletions

View File

@ -50,6 +50,7 @@ shutdown(Rc, LibDir) ->
check(Cwd, PluginsDir, LibDir, Checks) ->
{ok, Plugins} = file:list_dir(PluginsDir),
ok = file:make_dir(LibDir),
put({?MODULE, third_party}, []),
[begin
Source = filename:join(PluginsDir, Plugin),
Target = filename:join(LibDir, Plugin),
@ -267,14 +268,8 @@ source_file(M) ->
store_third_party(App) ->
{ok, AppConfig} = application:get_all_key(App),
case get({?MODULE, third_party}) of
undefined ->
put({?MODULE, third_party},
proplists:get_value(modules, AppConfig));
Modules ->
put({?MODULE, third_party},
proplists:get_value(modules, AppConfig) ++ Modules)
end.
AppModules = proplists:get_value(modules, AppConfig),
put({?MODULE, third_party}, AppModules ++ get({?MODULE, third_party})).
%% TODO: this ought not to be maintained in such a fashion
external_dependency(Path) ->