From: Eric Wong <e@80x24.org>
Date: Sat, 18 Mar 2023 12:02:12 +0000 (+0000)
Subject: clone: show stale directories unconditionally
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b1ee9716d67f10ae19266acec1e8eff8275d7e7c;p=thirdparty%2Fpublic-inbox.git

clone: show stale directories unconditionally

--project-list= is no longer required to show stale
repositories.
---

diff --git a/lib/PublicInbox/LeiMirror.pm b/lib/PublicInbox/LeiMirror.pm
index c8d28ebaf..8b7e48ab7 100644
--- a/lib/PublicInbox/LeiMirror.pm
+++ b/lib/PublicInbox/LeiMirror.pm
@@ -1089,8 +1089,8 @@ sub dump_manifest ($$) {
 
 sub dump_project_list ($$) {
 	my ($self, $m) = @_;
-	my $f = $self->{'-project-list'} // return;
-	my $old = PublicInbox::Git::try_cat($f);
+	my $f = $self->{'-project-list'};
+	my $old = defined($f) ? PublicInbox::Git::try_cat($f) : '';
 	my %new;
 
 	open my $dh, '<', '.' or die "open(.): $!";
@@ -1108,13 +1108,15 @@ sub dump_project_list ($$) {
 The following local repositories are ignored/gone from $self->{src}:
 EOM
 	warn "\t", $_, "\n" for @remote;
-	warn <<EOM if @local;
+	if (defined($f) && @local) {
+		warn <<EOM;
 The following repos in $f no longer exist on the filesystem:
 EOM
-	warn "\t", $_, "\n" for @local;
-
-	my (undef, $dn, $bn) = File::Spec->splitpath($f);
+		warn "\t", $_, "\n" for @local;
+	}
 	$self->{chg}->{nr_chg} += scalar(@remote) + scalar(@local);
+	$f // return;
+	my (undef, $dn, $bn) = File::Spec->splitpath($f);
 	my $new = join("\n", @list, '');
 	atomic_write($dn, $bn, $new) if $new ne $old;
 }