diff options
author | Eric Wong <e@80x24.org> | 2019-01-11 02:47:57 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-01-11 03:58:03 +0000 |
commit | 5126394a3806bd438bd0ef9c596ffa2e3cfb8db9 (patch) | |
tree | 72711ab0793211a93f83cebc5d36197849f9e5e6 /lib/PublicInbox/V2Writable.pm | |
parent | ec4f98cb7ad6f6baf19ca208947fcb563a4ed8fe (diff) | |
download | public-inbox-5126394a3806bd438bd0ef9c596ffa2e3cfb8db9.tar.gz |
Otherwise, Perl may exit successfully when a failure code is desired.
Diffstat (limited to 'lib/PublicInbox/V2Writable.pm')
-rw-r--r-- | lib/PublicInbox/V2Writable.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/PublicInbox/V2Writable.pm b/lib/PublicInbox/V2Writable.pm index 970244eb..ec28e510 100644 --- a/lib/PublicInbox/V2Writable.pm +++ b/lib/PublicInbox/V2Writable.pm @@ -291,6 +291,7 @@ sub purge_oids { my $git = PublicInbox::Git->new($git_dir); my $im = $self->import_init($git, 0, 1); $purges->[$i] = $im->purge_oids($purge); + $im->done; } $purges; } @@ -499,6 +500,7 @@ sub done { delete $self->{bnote}; $self->{transact_bytes} = 0; $self->lock_release if $parts; + $self->{-inbox}->git->cleanup; } sub git_init { |