[PATCH 0/2] import: run "git gc --auto"

[PATCH 0/2] import: run "git gc --auto"

[Eric Wong]

This change is way overdue :x  Better late than never, I guess.

Eric Wong (2):
      import: hoist out common run_die subroutine
      import: run "git gc --auto" when done

 lib/PublicInbox/Import.pm | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

[PATCH 1/2] import: hoist out common run_die subroutine

[Eric Wong]

We will be reusing this in the next commit, too.
---
 lib/PublicInbox/Import.pm | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/lib/PublicInbox/Import.pm b/lib/PublicInbox/Import.pm
index 09dd38d..083fb1b 100644
--- a/lib/PublicInbox/Import.pm
+++ b/lib/PublicInbox/Import.pm
@@ -204,6 +204,14 @@ sub add {
 	$self->{tip} = ":$commit";
 }
 
+sub run_die ($$) {
+	my ($cmd, $env) = @_;
+	my $pid = spawn($cmd, $env, undef);
+	defined $pid or die "spawning ".join(' ', @$cmd)." failed: $!";
+	waitpid($pid, 0) == $pid or die join(' ', @$cmd) .' did not finish';
+	$? == 0 or die join(' ', @$cmd) . " failed: $?\n";
+}
+
 sub done {
 	my ($self) = @_;
 	my $w = delete $self->{out} or return;
@@ -222,19 +230,10 @@ sub done {
 	if ($nchg && !$ENV{FAST}) {
 		my $index = "$git_dir/ssoma.index";
 		my $env = { GIT_INDEX_FILE => $index };
-		my @rt = (@cmd, qw(read-tree -m -v -i), $self->{ref});
-		$pid = spawn(\@rt, $env, undef);
-		defined $pid or die "spawn read-tree failed: $!";
-		waitpid($pid, 0) == $pid or die 'read-tree did not finish';
-		$? == 0 or die "failed to update $git_dir/ssoma.index: $?\n";
+		run_die([@cmd, qw(read-tree -m -v -i), $self->{ref}], $env);
 	}
 	if ($nchg) {
-		$pid = spawn([@cmd, 'update-server-info'], undef, undef);
-		defined $pid or die "spawn update-server-info failed: $!\n";
-		waitpid($pid, 0) == $pid or
-			die 'update-server-info did not finish';
-		$? == 0 or die "failed to update-server-info: $?\n";
-
+		run_die([@cmd, 'update-server-info'], undef);
 		eval {
 			require PublicInbox::SearchIdx;
 			my $inbox = $self->{inbox} || $git_dir;
-- 
EW

[PATCH 2/2] import: run "git gc --auto" when done

[Eric Wong]

We need to prevent excessive repository growth for
public-inbox-watch and public-inbox-mda users.
---
 lib/PublicInbox/Import.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/PublicInbox/Import.pm b/lib/PublicInbox/Import.pm
index 083fb1b..611f7b1 100644
--- a/lib/PublicInbox/Import.pm
+++ b/lib/PublicInbox/Import.pm
@@ -240,6 +240,7 @@ sub done {
 			my $s = PublicInbox::SearchIdx->new($inbox);
 			$s->index_sync({ ref => $self->{ref} });
 		};
+		run_die([@cmd, qw(gc --auto)], undef);
 	}
 
 	my $lockfh = delete $self->{lockfh} or die "BUG: not locked: $!";
-- 
EW