在perl中接收到任何信号时,睡眠是否被中断?

#!/usr/bin/perl

use strict;
use warnings;
use Proc::Daemon;

Proc::Daemon::Init;

my $continue = 1;

$SIG{TERM} = sub { $continue = 0 };
$SIG{USR1} = sub { do_process(1) };

# basic daemon                                                                                    

boxesd_log("started boxesd");

while ($continue) {
    do_process(0);
    sleep(30);
}

boxesd_log("finished boxesd");

exit(0);

# required subroutines                                                                            

sub do_process {
    my ($notified) = @_;
    boxesd_log("doing it $notified");
}

但有些事情做得不对。

当守护进程启动时,它每30秒记录一次,而不会像预期的那样发出通知:

Sat Oct 30 21:05:47 2010 doing it 0
Sat Oct 30 21:06:17 2010 doing it 0
Sat Oct 30 21:06:47 2010 doing it 0

USR1 使用向进程发送信号 kill -USR1 xxxxx . 结果不是我所期望的:

Sat Oct 30 21:08:25 2010 doing it 1
Sat Oct 30 21:08:25 2010 doing it 0

我得到两个连续的条目,一个来自信号处理子程序,另一个来自不断运行的循环。似乎每当 1美元

怎么回事?