Having an underscore prefix is confusing for a public
subroutine, and the `cat_' prefix makes it obvious it isn't
some other command.
} $self->qx('rev-parse', map { "--since=$_" } @_);
}
-sub _active ($) {
+sub cat_active ($) {
scalar(@{gcf_inflight($_[0]) // []}) ||
($_[0]->{ck} && scalar(@{gcf_inflight($_[0]->{ck}) // []}))
}
# both completely done by using this:
sub async_wait_all ($) {
my ($self) = @_;
- while (_active($self)) {
+ while (cat_active($self)) {
check_async_wait($self);
cat_async_wait($self);
}
# returns true if there are pending "git cat-file" processes
sub cleanup {
my ($self, $lazy) = @_;
- ($lazy && _active($self)) and
+ ($lazy && cat_active($self)) and
return $self->{epwatch} ? watch_async($self) : 1;
local $in_cleanup = 1;
async_wait_all($self);
sub check_done {
my ($self) = @_;
- $self->git->_active ?
+ $self->git->cat_active ?
add_uniq_timer("$self-check_done", 5, \&check_done, $self) :
done($self);
}