umgeher/erlware_commons
0
Fork 0
Code Issues Pull requests Releases Activity

Keep symlinks in copies

Browse source
This commit is contained in:
Paulo F. Oliveira 2021-04-02 22:44:02 +01:00
parent 0318b467bc
commit c47c938537
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/ec_file.erl
View file

@ -80,7 +80,14 @@ copy(From, To) ->
copy_(From, To, [{file_info, [mode, time, owner, group]}]). copy_(From, To, [{file_info, [mode, time, owner, group]}]).
copy_(From, To, Options) -> copy_(From, To, Options) ->
case file:copy(From, To) of Linked
= case file:read_link(From) of
{ok, Linked0} -> Linked0;
{error, _} -> undefined
end,
case Linked =/= undefined orelse file:copy(From, To) of
true ->
file:make_symlink(Linked, To);
{ok, _} -> {ok, _} ->
copy_file_info(To, From, proplists:get_value(file_info, Options, [])); copy_file_info(To, From, proplists:get_value(file_info, Options, []));
{error, Error} -> {error, Error} ->