extindex: prune invalid alternate entries on --gc

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

diff --git a/lib/PublicInbox/MultiGit.pm b/lib/PublicInbox/MultiGit.pm
index 91d7998aa51f244e45d55b4515904464086d814c..9429a00ca64cfa3339608ec0f9f48c592a5cbaaa 100644 (file)
--- a/lib/PublicInbox/MultiGit.pm
+++ b/lib/PublicInbox/MultiGit.pm
@@ -45,7 +45,11 @@ sub read_alternates {
                                $alt{$rel} = $score;
                        } else {
                                warn "W: stat($dir) failed: $! ($f)";
-                               $alt{$rel} = $score unless $prune;
+                               if ($prune) {
+                                       ++$$prune;
+                               } else {
+                                       $alt{$rel} = $score;
+                               }
                        }
                }
        } elsif (!$!{ENOENT}) {