Fix bug where the main loop sleeps forever.

On some system the alarm & pause sequence breaks with high system loads.
This commit is contained in:
Georg Hofmann 2019-04-01 11:40:37 +02:00
parent 792c8be362
commit 2ada996f95
1 changed files with 2 additions and 3 deletions

View File

@ -737,9 +737,8 @@ logger("Ok, ready.");
# main loop
while(1) {
local $SIG{'ALRM'} = sub { };
alarm(1);
pause();
select undef, undef, undef, 1.0;
my ($sec, $min, $hour, $mday, $mon, undef, $wday) = localtime(time);