about summary refs log tree commit homepage
path: root/lib/PublicInbox/V2Writable.pm
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2019-01-11 02:47:57 +0000
committerEric Wong <e@80x24.org>2019-01-11 03:58:03 +0000
commit5126394a3806bd438bd0ef9c596ffa2e3cfb8db9 (patch)
tree72711ab0793211a93f83cebc5d36197849f9e5e6 /lib/PublicInbox/V2Writable.pm
parentec4f98cb7ad6f6baf19ca208947fcb563a4ed8fe (diff)
downloadpublic-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.pm2
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 {