about summary refs log tree commit homepage
diff options
context:
space:
mode:
-rw-r--r--lib/PublicInbox/Import.pm3
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;
         }