clone|fetch: support passing --prune(-tags) to `git fetch'

[public-inbox.git] / lib / PublicInbox / LeiMirror.pm

diff --git a/lib/PublicInbox/LeiMirror.pm b/lib/PublicInbox/LeiMirror.pm
index 0e8689ca71c0d4a0c447076aa748ac578627f653..2473c74b861c96520a715447ba69c6e43ac7d2de 100644 (file)
--- a/lib/PublicInbox/LeiMirror.pm
+++ b/lib/PublicInbox/LeiMirror.pm
@@ -275,6 +275,7 @@ sub fetch_args ($$) {
        push @cmd, '-q' if $lei->{opt}->{quiet} ||
                        ($lei->{opt}->{jobs} // 1) > 1;
        push @cmd, '-v' if $lei->{opt}->{verbose};
+       push(@cmd, '-p') if $lei->{opt}->{prune};
        @cmd;
 }
 
@@ -527,6 +528,7 @@ sub resume_fetch {
        }
        my $cmd = [ @{$self->{-torsocks}}, @git,
                        fetch_args($self->{lei}, $opt), $rn ];
+       push @$cmd, '-P' if $self->{lei}->{prune}; # --prune-tags implied
        start_cmd($self, $cmd, $opt, $fini);
 }