Remove some stray debugging code.

[remoteglot] / remoteglot.pl

diff --git a/remoteglot.pl b/remoteglot.pl
index b128e29735b99e7a520d1d31ecec61db0d7cfe40..b018e3841d8c336036f9fb8366d13fd1c5218a19 100755 (executable)
--- 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 = ();
@@ -199,7 +199,6 @@ sub handle_fics {
                };
                if ($@) {
                        warn "Error when getting FICS move history: $@";
-                       exit;
                        $getting_movelist = 0;
                }
        }
@@ -478,7 +477,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;
        }