-sub done {
- my ($self) = @_;
- my $im = delete $self->{im};
- $im->done if $im; # PublicInbox::Import::done
-
- my $mm = $self->{mm};
- $mm->{dbh}->commit if $mm;
-
- # order matters, we can only close {over} after all partitions
- # are done because the partitions also write to {over}
- my $parts = delete $self->{idx_parts};
- if ($parts) {
- $_->remote_commit for @$parts;
- $_->remote_close for @$parts;
- }
-
- my $over = $self->{over};
- $over->commit_lazy;
- $over->disconnect;
-
- if ($mm) {
- $mm->{dbh}->begin_work;
- set_last_commits($self);
- $mm->{dbh}->commit;
- delete $self->{mm};
- }
-
- delete $self->{bnote};
- $self->{transact_bytes} = 0;
- $self->lock_release if $parts;
-}
-
-sub checkpoint {
- my ($self) = @_;
- my $im = $self->{im};
- $im->checkpoint if $im; # PublicInbox::Import::checkpoint
- $self->barrier;
-}
-