Merge remote-tracking branch 'origin/purge'

* origin/purge:
  implement public-inbox-purge tool
  v2writable: read epoch on purge
  v2writable: cleanup processes when done
  v2writable: purge ignores non-existent git epoch directories
  v2writable: ->purge returns undef on no-op
  import: purge: reap fast-export process
  hoist out resolve_repo_dir from -index

1 files changed, 2 insertions, 1 deletions

diff --git a/lib/PublicInbox/Import.pm b/lib/PublicInbox/Import.pm
index fd4255cf..7e596abc 100644
--- a/lib/PublicInbox/Import.pm
+++ b/lib/PublicInbox/Import.pm
@@ -495,7 +495,7 @@ sub purge_oids {
         my $old = $self->{'ref'};
         my $git = $self->{git};
         my @export = (qw(fast-export --no-data --use-done-feature), $old);
-        my ($rd, $pid) = $git->popen(@export);
+        my $rd = $git->popen(@export);
         my ($r, $w) = $self->gfi_start;
         my @buf;
         my $npurge = 0;
@@ -550,6 +550,7 @@ sub purge_oids {
                         push @buf, $_;
                 }
         }
+        close $rd or die "close fast-export failed: $?";
         if (@buf) {
                 $w->print(@buf) or wfail;
         }