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 " {warn, "Snapshot with pid ~w timed out and so deletion will "
++ "continue regardless"}}, ++ "continue regardless"}},
{"P0035", {"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", {"PC001",
{info, "Penciller's clerk ~w started with owner ~w"}}, {info, "Penciller's clerk ~w started with owner ~w"}},
{"PC002", {"PC002",

View file

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