ds: hoist out close_non_busy

It's shared by both by lei and public-facing daemons in using
the ->busy callback.

1 files changed, 1 insertions, 9 deletions

diff --git a/lib/PublicInbox/Daemon.pm b/lib/PublicInbox/Daemon.pm
index 7546105e..5250610b 100644
--- a/lib/PublicInbox/Daemon.pm
+++ b/lib/PublicInbox/Daemon.pm
@@ -364,16 +364,8 @@ sub worker_quit { # $_[0] = signal name or number (unused)
         # drop idle connections and try to quit gracefully
         @PublicInbox::DS::post_loop_do = (sub {
                 my ($dmap, undef) = @_;
-                my $n = 0;
                 my $now = now();
-                for my $s (values %$dmap) {
-                        $s->can('busy') or next;
-                        if ($s->busy) {
-                                ++$n;
-                        } else { # close as much as possible, early as possible
-                                $s->close;
-                        }
-                }
+                my $n = PublicInbox::DS::close_non_busy();
                 if ($n) {
                         if (($warn + 5) < now()) {
                                 warn "$$ quitting, $n client(s) left\n";