From f636f401b22a5ef16dd52955b3092c9ce3a9586f Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Wed, 3 May 2023 11:42:15 +0000
Subject: [PATCH] cindex: --prune + --exclude= drops repo information

--exclude= alone only prevents a coderepo from being indexed in
a particular invocation, but --prune will purge all traces of it
to ensure --update doesn't pick it up again w/o --exclude=
(unless --project-list= includes it).
---
 lib/PublicInbox/CodeSearchIdx.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/lib/PublicInbox/CodeSearchIdx.pm b/lib/PublicInbox/CodeSearchIdx.pm
index 671134bf6..d92d87fc4 100644
--- a/lib/PublicInbox/CodeSearchIdx.pm
+++ b/lib/PublicInbox/CodeSearchIdx.pm
@@ -648,9 +648,7 @@ sub prune_do { # via wq_io_do in IDX_SHARDS
 	local $/ = "\0";
 	while (my $p = <$gone>) { # Q$cmt or P$git_dir
 		chomp $p;
-		my @docids = docids_by_postlist($self, $p) or warn <<EOM;
-W: no docids for `$p' [$self->{shard}]
-EOM
+		my @docids = docids_by_postlist($self, $p);
 		for (@docids) {
 			$TXN_BYTES -= $xdb->get_doclength($_) * 42;
 			$xdb->delete_document($_);
@@ -914,9 +912,13 @@ sub cidx_run { # main entry point
 		my $re = '(?:'.join('\\z|', map {
 				glob2re($_) // qr/\A\Q$_\E/
 			} @$excl).'\\z)';
+		my @excl;
 		@{$self->{git_dirs}} = grep {
-			$_ =~ /$re/ ? (warn("# excluding $_\n"), 0) : 1;
+			$_ =~ /$re/ ? (push(@excl, $_), 0) : 1;
 		} @{$self->{git_dirs}};
+		warn("# excluding $_\n") for @excl;
+		my %uniq; # List::Util::uniq requires Perl 5.26+
+		@GIT_DIR_GONE = grep { !$uniq{$_}++ } (@GIT_DIR_GONE, @excl);
 	}
 	local $NCHANGE = 0;
 	local $LIVE_JOBS = $self->{-opt}->{jobs} ||
-- 
2.47.2