# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
eval { require PublicInbox::Gcf2 };
die "libgit2 development package or Inline::C missing for $0: $@\n" if $@;
-my @dirs; # may get big (30K-100K)
my $gcf2 = PublicInbox::Gcf2::new();
use IO::Handle; # autoflush
STDERR->autoflush(1);
while (<STDIN>) {
chomp;
- if (m!\A/!) { # +/path/to/git-dir
- push @dirs, $_;
- $gcf2->add_alternate("$_/objects");
- } elsif (!$gcf2->cat_oid(1, $_)) {
+ my ($oid, $git_dir) = split(/ /, $_, 2);
+ $gcf2->add_alternate("$git_dir/objects");
+ if (!$gcf2->cat_oid(1, $oid)) {
# retry once if missing. We only get unabbreviated OIDs
# from SQLite or Xapian DBs, here, so malicious clients
# can't trigger excessive retries:
- my $oid = $_;
- warn "I: $$ $oid missing, retrying...\n";
+ warn "I: $$ $oid missing, retrying in $git_dir...\n";
- # clients may need to wait a bit for this:
$gcf2 = PublicInbox::Gcf2::new();
- $gcf2->add_alternate("$_/objects") for @dirs;
+ $gcf2->add_alternate("$git_dir/objects");
if ($gcf2->cat_oid(1, $oid)) {
warn "I: $$ $oid found after retry\n";