ds: use and export monotonic now()

All of our internal timing code should use monotonic clocks
for consistency against system clock adjustments.

This can be shared by our Daemon and NNTP packages.

1 files changed, 4 insertions, 5 deletions

diff --git a/lib/PublicInbox/Daemon.pm b/lib/PublicInbox/Daemon.pm
index 227ba5f9..b8d6b572 100644
--- a/lib/PublicInbox/Daemon.pm
+++ b/lib/PublicInbox/Daemon.pm
@@ -9,10 +9,9 @@ use Getopt::Long qw/:config gnu_getopt no_ignore_case auto_abbrev/;
 use IO::Handle;
 use IO::Socket;
 use Cwd qw/abs_path/;
-use Time::HiRes qw(clock_gettime CLOCK_MONOTONIC);
 STDOUT->autoflush(1);
 STDERR->autoflush(1);
-require PublicInbox::DS;
+use PublicInbox::DS qw(now);
 require PublicInbox::EvCleanup;
 require POSIX;
 require PublicInbox::Listener;
@@ -183,7 +182,7 @@ sub worker_quit {
         PublicInbox::DS->SetPostLoopCallback(sub {
                 my ($dmap, undef) = @_;
                 my $n = 0;
-                my $now = clock_gettime(CLOCK_MONOTONIC);
+                my $now = now();
 
                 foreach my $s (values %$dmap) {
                         $s->can('busy') or next;
@@ -195,9 +194,9 @@ sub worker_quit {
                         }
                 }
                 if ($n) {
-                        if (($warn + 5) < time) {
+                        if (($warn + 5) < now()) {
                                 warn "$$ quitting, $n client(s) left\n";
-                                $warn = time;
+                                $warn = now();
                         }
                         unless (defined $proc_name) {
                                 $proc_name = (split(/\s+/, $0))[0];