diff options
Diffstat (limited to 'src/couch/src/couch_bt_engine_compactor.erl')
-rw-r--r-- | src/couch/src/couch_bt_engine_compactor.erl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/couch/src/couch_bt_engine_compactor.erl b/src/couch/src/couch_bt_engine_compactor.erl index 4e52064b4..577d6cdd7 100644 --- a/src/couch/src/couch_bt_engine_compactor.erl +++ b/src/couch/src/couch_bt_engine_compactor.erl @@ -54,6 +54,13 @@ start(#st{} = St, DbName, Options, Parent) -> % and hope everything works out for the best. unlink(DFd), + %%%%%%%%%%%%%%%%%%%%%%%%%%%% + case couch_db:open_int(DbName, [?ADMIN_CTX]) of + {ok, Db} -> couch_db:close(Db); + Else -> throw(Else) + end, + %%%%%%%%%%%%%%%%%%%%%%%%%%%% + NewSt1 = copy_purge_info(St, NewSt), NewSt2 = copy_compact(DbName, St, NewSt1, Retry), NewSt3 = sort_meta_data(NewSt2), |