From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Sun, 16 Nov 2014 10:46:45 +0000 (+0100)
Subject: Use an AnyEvent timer instead of an alarm.
X-Git-Url: https://git.sesse.net/?p=remoteglot;a=commitdiff_plain;h=7b820e6d4213ba6a8e7d618edc473668acd141aa

Use an AnyEvent timer instead of an alarm.
---

diff --git a/remoteglot.pl b/remoteglot.pl
index b128e29..8cfb0be 100755
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -28,8 +28,8 @@ use warnings;
 no warnings qw(once);
 
 # Program starts here
-$SIG{ALRM} = sub { output(); };
 my $latest_update = undef;
+my $output_timer = undef;
 my $http_timer = undef;
 my $tb_retry_timer = undef;
 my %tb_cache = ();
@@ -478,7 +478,8 @@ sub output {
 	# Don't update too often.
 	my $age = Time::HiRes::tv_interval($latest_update);
 	if ($age < $remoteglotconf::update_max_interval) {
-		Time::HiRes::alarm($remoteglotconf::update_max_interval + 0.01 - $age);
+		my $wait = $remoteglotconf::update_max_interval + 0.01 - $age;
+		$output_timer = AnyEvent->timer(after => $wait, cb => \&output);
 		return;
 	}