Log deletions from mnaifest (via GC)

This commit is contained in:
martinsumner 2017-01-15 11:04:26 +00:00
parent 13c5cc8899
commit e6c4c9eff8
2 changed files with 5 additions and 1 deletions

View file

@ -127,7 +127,10 @@
{warn, "Snapshot with pid ~w timed out and so deletion will "
++ "continue regardless"}},
{"P0035",
{info, "Startup with Manifest SQN of ~w~n"}},
{info, "Startup with Manifest SQN of ~w"}},
{"P0036",
{info, "Garbage collection on mnaifest removes key for filename ~s"}},
{"PC001",
{info, "Penciller's clerk ~w started with owner ~w"}},
{"PC002",

View file

@ -480,6 +480,7 @@ key_lookup(Manifest, Level, {LastKey, LastFN}, KeyToFind, ManSQN, GC) ->
{true, GC_SQN} ->
case TombSQN < GC_SQN of
true ->
leveled_log:log("P0036", [element(3, K)]),
ets:delete(Manifest, K);
false ->
ok