Allow the use of absolute paths in the lib_dirs configuration setting

This commit is contained in:
Juan Jose Comellas 2013-06-18 18:03:30 -03:00
parent a5be40c969
commit 708c190faa

View file

@ -412,7 +412,10 @@ expand_lib_dirs([], _Root, Acc) ->
Acc; Acc;
expand_lib_dirs([Dir | Rest], Root, Acc) -> expand_lib_dirs([Dir | Rest], Root, Acc) ->
Apps = filelib:wildcard(filename:join([Dir, "*", "ebin"])), Apps = filelib:wildcard(filename:join([Dir, "*", "ebin"])),
FqApps = [filename:join([Root, A]) || A <- Apps], FqApps = case filename:pathtype(Dir) of
absolute -> Apps;
relative -> [filename:join([Root, A]) || A <- Apps]
end,
expand_lib_dirs(Rest, Root, Acc ++ FqApps). expand_lib_dirs(Rest, Root, Acc ++ FqApps).