my ($dmap, undef) = @_;
my $n = 0;
my $now = now();
-
- foreach my $s (values %$dmap) {
+ for my $s (values %$dmap) {
$s->can('busy') or next;
- if ($s->busy($now)) {
+ if ($s->busy) {
++$n;
- } else {
- # close as much as possible, early as possible
+ } else { # close as much as possible, early as possible
$s->close;
}
}
# localize GCF2C for tests:
local $PublicInbox::GitAsyncCat::GCF2C;
local $PublicInbox::Git::async_warn = 1;
- local $SIG{__WARN__} = \&PublicInbox::Eml::warn_ignore_cb;
+ local $SIG{__WARN__} = PublicInbox::Eml::warn_ignore_cb();
daemon_loop($refresh, $post_accept, $tlsd, $af_default);
PublicInbox::DS->Reset;