From 81b25bbe41643be9ef2bbb7583e06dbd702f61c8 Mon Sep 17 00:00:00 2001
From: Tristan Sloughter <t@crashfast.com>
Date: Fri, 22 Jun 2018 16:34:17 -0600
Subject: only copy mode and time attributes when copying files

---
 src/rlx_prv_assembler.erl | 14 ++++++++------
 src/rlx_prv_overlay.erl   |  7 ++-----
 2 files changed, 10 insertions(+), 11 deletions(-)

(limited to 'src')

diff --git a/src/rlx_prv_assembler.erl b/src/rlx_prv_assembler.erl
index 705e51a..cb5bbed 100644
--- a/src/rlx_prv_assembler.erl
+++ b/src/rlx_prv_assembler.erl
@@ -344,7 +344,7 @@ copy_dir(State, App, AppDir, TargetDir, SubDir) ->
 
 %% no files are excluded, just copy the whole dir
 copy_dir(SourceDir, TargetDir, []) ->
-     case ec_file:copy(SourceDir, TargetDir, [recursive]) of
+     case ec_file:copy(SourceDir, TargetDir, [recursive, {file_info, [mode, time]}]) of
         {error, E} -> {error, E};
         ok ->
             ok
@@ -355,7 +355,7 @@ copy_dir(SourceDir, TargetDir, ExcludeFiles) ->
     lists:foreach(fun(F) ->
                     ok = ec_file:copy(F,
                                       filename:join([TargetDir,
-                                                     filename:basename(F)]))
+                                                     filename:basename(F)]), [{file_info, [mode, time]}])
                   end, SourceFiles -- ExcludeFiles).
 
 create_release_info(State0, Release0, OutputDir) ->
@@ -655,7 +655,7 @@ copy_or_symlink_config_file(State, ConfigPath, RelConfPath) ->
         true ->
             ok = rlx_util:symlink_or_copy(ConfigPath, RelConfPath);
         _ ->
-            ok = ec_file:copy(ConfigPath, RelConfPath)
+            ok = ec_file:copy(ConfigPath, RelConfPath, [{file_info, [mode, time]}])
     end.
 
 %% @doc Optionally add erts directory to release, if defined.
@@ -686,7 +686,7 @@ include_erts(State, Release, OutputDir, RelDir) ->
                     ?RLX_ERROR({specified_erts_does_not_exist, ErtsVersion});
                 true ->
                     ok = ec_file:mkdir_p(LocalErts),
-                    ok = ec_file:copy(ErtsDir, LocalErts, [recursive]),
+                    ok = ec_file:copy(ErtsDir, LocalErts, [recursive, {file_info, [mode, time]}]),
                     case OsFamily of
                         unix ->
                             Erl = filename:join([LocalErts, "bin", "erl"]),
@@ -797,7 +797,8 @@ create_boot_file(RelDir, OutputDir, Options, State, Name) ->
                          end) of
         ok ->
             ok = ec_file:copy(filename:join([RelDir, Name++".boot"]),
-                              filename:join([OutputDir, "bin", Name++".boot"])),
+                              filename:join([OutputDir, "bin", Name++".boot"]),
+                              [{file_info, [mode, time]}]),
             ec_file:remove(filename:join([RelDir, Name++".rel"])),
             ec_file:remove(filename:join([RelDir, Name++".script"])),
             {ok, State};
@@ -805,7 +806,8 @@ create_boot_file(RelDir, OutputDir, Options, State, Name) ->
             ?RLX_ERROR(boot_script_generation_error);
         {ok, _, []} ->
             ok = ec_file:copy(filename:join([RelDir, Name++".boot"]),
-                              filename:join([OutputDir, "bin", Name++".boot"])),
+                              filename:join([OutputDir, "bin", Name++".boot"]),
+                              [{file_info, [mode, time]}]),
             ec_file:remove(filename:join([RelDir, Name++".rel"])),
             ec_file:remove(filename:join([RelDir, Name++".script"])),
             {ok, State};
diff --git a/src/rlx_prv_overlay.erl b/src/rlx_prv_overlay.erl
index a18699a..645f691 100644
--- a/src/rlx_prv_overlay.erl
+++ b/src/rlx_prv_overlay.erl
@@ -402,10 +402,8 @@ copy_to(State, FromFile0, ToFile0) ->
                       erlang:iolist_to_binary(filename:join(ToFile1,
                                                             filename:basename(FromFile1)))
               end,
-    case ec_file:copy(FromFile1, ToFile2, [recursive]) of
+    case ec_file:copy(FromFile1, ToFile2, [recursive, {file_info, [mode, time]}]) of
         ok ->
-            {ok, FileInfo} = file:read_file_info(FromFile1),
-            ok = file:write_file_info(ToFile2, FileInfo),
             ok;
         {error, Err} ->
             ?RLX_ERROR({copy_failed,
@@ -494,8 +492,7 @@ write_template(OverlayVars, FromFile, ToFile) ->
                             end,
                             case file:write_file(ToFile, IoData) of
                                 ok ->
-                                    {ok, FileInfo} = file:read_file_info(FromFile),
-                                    ok = file:write_file_info(ToFile, FileInfo),
+                                    ok = ec_file:copy_file_info(ToFile, FromFile, [mode, time]),
                                     ok;
                                 {error, Reason} ->
                                     ?RLX_ERROR({unable_to_write, ToFile, Reason})
-- 
cgit v1.2.3