about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@yhbt.net>2020-01-12 21:17:47 +0000
committerEric Wong <e@yhbt.net>2020-01-13 23:21:20 +0000
commit7669985165b5dacb60902406f2b5a894506bdc45 (patch)
treecd64268924b2c9d7d8f000118d919cca900ca257
parent8acfb1f135a0c3d156ed5cc19a26844c09d20acb (diff)
downloadpublic-inbox-7669985165b5dacb60902406f2b5a894506bdc45.tar.gz
The class parameter is pointless, especially for an internal
sub which only has one external caller in a test.  Add a sub
prototype while we're at it to get some compile time checking.
-rw-r--r--lib/PublicInbox/DS.pm13
-rw-r--r--t/ds-leak.t2
2 files changed, 8 insertions, 7 deletions
diff --git a/lib/PublicInbox/DS.pm b/lib/PublicInbox/DS.pm
index 3989bd2b..fe794512 100644
--- a/lib/PublicInbox/DS.pm
+++ b/lib/PublicInbox/DS.pm
@@ -101,16 +101,17 @@ sub SetLoopTimeout {
     return $LoopTimeout = $_[1] + 0;
 }
 
-=head2 C<< CLASS->AddTimer( $seconds, $coderef ) >>
+=head2 C<< PublicInbox::DS::add_timer( $seconds, $coderef ) >>
 
 Add a timer to occur $seconds from now. $seconds may be fractional, but timers
 are not guaranteed to fire at the exact time you ask for.
 
-Returns a timer object which you can call C<< $timer->cancel >> on if you need to.
+Returns a timer object which you can call C<< $timer->cancel >> on if you need
+to.
 
 =cut
-sub AddTimer {
-    my ($class, $secs, $coderef) = @_;
+sub add_timer ($$) {
+    my ($secs, $coderef) = @_;
 
     my $fire_time = now() + $secs;
 
@@ -247,7 +248,7 @@ sub reap_pids {
     }
     if (@$WaitPids) {
         # we may not be donea, and we may miss our
-        $reap_timer = AddTimer(undef, 1, \&reap_pids);
+        $reap_timer = add_timer(1, \&reap_pids);
     }
 }
 
@@ -653,7 +654,7 @@ sub _run_later () {
 sub later ($) {
     my ($cb) = @_;
     push @$later_queue, $cb;
-    $later_timer //= AddTimer(undef, 60, \&_run_later);
+    $later_timer //= add_timer(60, \&_run_later);
 }
 
 sub expire_old () {
diff --git a/t/ds-leak.t b/t/ds-leak.t
index 34ffc125..a4a56e0d 100644
--- a/t/ds-leak.t
+++ b/t/ds-leak.t
@@ -20,7 +20,7 @@ if ('close-on-exec for epoll and kqueue') {
         my ($r, $w);
         pipe($r, $w) or die "pipe: $!";
 
-        PublicInbox::DS->AddTimer(0, sub { $pid = spawn([qw(sleep 10)]) });
+        PublicInbox::DS::add_timer(0, sub { $pid = spawn([qw(sleep 10)]) });
         PublicInbox::DS->EventLoop;
         ok($pid, 'subprocess spawned');