diff options
| author | Sverker Eriksson <[email protected]> | 2013-06-04 12:08:47 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2013-06-04 12:08:47 +0200 |
| commit | 2e28220023dbcc5e0a8062ce289809ff1df17106 (patch) | |
| tree | 579a2ed16bbb80053e0e244ce171c12265056629 | |
| parent | 2a0c4c3f327eb0e8635e3a835b91c3819281bf28 (diff) | |
| parent | d68c8177e7893e2a2f37cd8ecd17b0ff6f2acd57 (diff) | |
| download | otp-2e28220023dbcc5e0a8062ce289809ff1df17106.tar.gz otp-2e28220023dbcc5e0a8062ce289809ff1df17106.tar.bz2 otp-2e28220023dbcc5e0a8062ce289809ff1df17106.zip | |
Merge branch 'sverk/core-chmodding' into maint
* sverk/core-chmodding:
system: Prevent z_SUITE from changing the timestamp on core files
| -rw-r--r-- | erts/test/z_SUITE.erl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/erts/test/z_SUITE.erl b/erts/test/z_SUITE.erl index 78968ed405..9abc73c081 100644 --- a/erts/test/z_SUITE.erl +++ b/erts/test/z_SUITE.erl @@ -190,8 +190,13 @@ file_inspect(#core_search_conf{file = File}, Core) -> probably_a_core end. -mk_readable(F) -> - catch file:write_file_info(F, #file_info{mode = 8#00444}). +mk_readable(F) -> + try + {ok, Old} = file:read_file_info(F), + file:write_file_info(F, Old#file_info{mode = 8#00444}) + catch + _:_ -> io:format("Failed to \"chmod\" core file ~p\n", [F]) + end. ignore_core(C) -> filelib:is_regular(filename:join([filename:dirname(C), |