diff options
| author | Hans Bolinder <[email protected]> | 2014-10-23 09:00:48 +0200 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2014-10-23 09:00:48 +0200 |
| commit | ff3fae223431a9cb0d2a2852a07f9447960c92ed (patch) | |
| tree | 3faeb5fb24999a54b190bac9b844a89e93d9ac54 /lib/stdlib/src/dets.erl | |
| parent | cd5628a99bff391377042f93e8d85da818235217 (diff) | |
| parent | 89c5bc9a243d7f0ba8e43b52b9addadccdb7d1ca (diff) | |
| download | otp-ff3fae223431a9cb0d2a2852a07f9447960c92ed.tar.gz otp-ff3fae223431a9cb0d2a2852a07f9447960c92ed.tar.bz2 otp-ff3fae223431a9cb0d2a2852a07f9447960c92ed.zip | |
Merge branch 'hb/stdlib/fix_dets_test' into maint
* hb/stdlib/fix_dets_test:
Fix rare race condition in Dets
Diffstat (limited to 'lib/stdlib/src/dets.erl')
| -rw-r--r-- | lib/stdlib/src/dets.erl | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/lib/stdlib/src/dets.erl b/lib/stdlib/src/dets.erl index 76e03bbfaa..a4bd45ea19 100644 --- a/lib/stdlib/src/dets.erl +++ b/lib/stdlib/src/dets.erl @@ -2839,17 +2839,22 @@ fsck_try(Fd, Tab, FH, Fname, SlotNumbers, Version) -> tempfile(Fname) -> Tmp = lists:concat([Fname, ".TMP"]), - tempfile(Tmp, 10). - -tempfile(Tmp, 0) -> - Tmp; -tempfile(Tmp, N) -> case file:delete(Tmp) of - {error, eacces} -> % 'dets_process_died' happened anyway... (W-nd-ws) - timer:sleep(1000), - tempfile(Tmp, N-1); - _ -> - Tmp + {error, _Reason} -> % typically enoent + ok; + ok -> + assure_no_file(Tmp) + end, + Tmp. + +assure_no_file(File) -> + case file:read_file_info(File) of + {ok, _FileInfo} -> + %% Wait for some other process to close the file: + timer:sleep(100), + assure_no_file(File); + {error, _} -> + ok end. %% -> {ok, NewHead} | {try_again, integer()} | Error |