I somehow thought "foreach (<$cat>)" could work like
"while (<$cat>)" when it came to iterating over file
handles...
my $cat = $git->popen(@cat);
$git->cat_async_begin;
my $cat = $git->popen(@cat);
$git->cat_async_begin;
my ($oid, undef, undef) = split(/ /);
$git->cat_async($oid, $cb);
}
my ($oid, undef, undef) = split(/ /);
$git->cat_async($oid, $cb);
}
my $sync = timeit($nr, sub {
my $dig = Digest::SHA->new(1);
my $cat = $git->popen(@cat);
my $sync = timeit($nr, sub {
my $dig = Digest::SHA->new(1);
my $cat = $git->popen(@cat);
my ($oid, undef, undef) = split(/ /);
my $bref = $git->cat_file($oid);
$dig->add($$bref);
my ($oid, undef, undef) = split(/ /);
my $bref = $git->cat_file($oid);
$dig->add($$bref);