Проблема, нужен демон на перле, пишу так
sub mysig { $work = 1; } $SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&mysig; $pid = fork; exit if $pid; POSIX::setsid(); $work = 0; until ($work) { далее в цикле accept }
проблема в том, что при accept c блокированием, сигнал не доходит пока на сокет не прийдет клиент, если же пользоваться неблокирующимся сокетом программа постоянно крутится в until, при этом загрузка процессора 70%(причем даже если в until пусто). Есть ли решения этой проблемы, или просто лыжи не едут.
