}
my @dig;
my $nr = $ENV{NR} || 1;
+diag "NR=$nr";
my $async = timeit($nr, sub {
my $dig = Digest::SHA->new(1);
my $cb = sub {
$dig->add($$bref);
};
my $cat = $git->popen(@cat);
- $git->cat_async_begin;
while (<$cat>) {
my ($oid, undef, undef) = split(/ /);