make escriptize reproducible by setting timestamps for files in zip

erlang · Jun 12, 2024 · 4c4809f · 4c4809f
1 parent b562583
commit 4c4809f
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/apps/rebar/src/rebar_prv_escriptize.erl b/apps/rebar/src/rebar_prv_escriptize.erl
@@ -243,8 +243,12 @@ read_file(Prefix, Filename, Dir) ->
                     _ ->
                         filename:join([Prefix, Filename])
                 end,
+    FilePath = filename:join(Dir, Filename),
+    {ok, FileInfo0} = file:read_file_info(FilePath),
+    DateTime = {{1970, 1, 1}, {0, 0, 1}},
+    FileInfo = FileInfo0#file_info{mtime = DateTime},
     [dir_entries(filename:dirname(Filename1)),
-     {Filename1, file_contents(filename:join(Dir, Filename))}].
+     {Filename1, file_contents(FilePath), FileInfo}].
 
 file_contents(Filename) ->
     {ok, Bin} = file:read_file(Filename),
@@ -272,7 +276,7 @@ usort(List) ->
     lists:ukeysort(1, lists:flatten(List)).
 
 get_nonempty(Files) ->
-    [{FName,FBin} || {FName,FBin} <- Files, FBin =/= <<>>].
+    [{FName,FBin,FInfo} || {FName,FBin,FInfo} <- Files, FBin =/= <<>>].
 
 find_deps(AppNames, AllApps, State) ->
     BinAppNames = [rebar_utils:to_binary(Name) || Name <- AppNames],