diff options
| -rw-r--r-- | src/file_handle_cache.erl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/file_handle_cache.erl b/src/file_handle_cache.erl index 2014b19f..19b2654f 100644 --- a/src/file_handle_cache.erl +++ b/src/file_handle_cache.erl @@ -767,17 +767,18 @@ handle_call({obtain, Pid}, From, State = #fhc_state { obtain_count = Count, handle_call({open, Pid, EldestUnusedSince, CanClose}, From, State = #fhc_state { open_count = Count, open_pending = Pending, - elders = Elders }) -> + elders = Elders }) -> Elders1 = dict:store(Pid, EldestUnusedSince, Elders), - case maybe_reduce(State #fhc_state { open_count = Count + 1, - elders = Elders1 }) of + case maybe_reduce( + ensure_mref(Pid, State #fhc_state { open_count = Count + 1, + elders = Elders1 })) of {true, State1} -> State2 = State1 #fhc_state { open_count = Count }, case CanClose of true -> {reply, close, State2}; false -> {noreply, State2 #fhc_state { open_pending = [From | Pending], - elders = Elders }} + elders = dict:erase(Pid, Elders1) }} end; {false, State1} -> {reply, ok, State1} |