使用 Sys::SigAction::timeout_call 不安全吗？

Question

我刚刚读过 Leon Timmermans 的文章 关于基于信号的超时您应该了解什么，我想知道它/如果它适用于使用Sys::SigAction::timeout_call()。

1）首先，似乎 timeout_call() 使用 longjmp 和不安全信号，因此CERT 安全编码规则SIG32-C适用。

2) 如果监视超时的代码仅包含纯 Perl 代码（即不调用 XS 模块），那么使用 timeout_call 是否安全？

Answer 1

1) timeout_call() 使用几乎完全相同的习惯用法将系统调用包装在 eval/alarm 块中，如 Leon 的示例：

my $ALARM_EXCEPTION = "alarm clock restart";
my $h;
eval {
    $h = set_sig_handler('ALRM', sub { die $ALARM_EXCEPTION }, { });
    alarm 10;
    flock $fh, 2 or die "cannot flock: $!";
    alarm 0;
};
alarm 0;
$SIG{ALRM} = $h;
if ($@ && $@ !~ quotemeta($ALARM_EXCEPTION)) { die }

So if set_sig_handler禁用/覆盖安全信号处理，那么 timeout_call 也会。

2) 纯 Perl 仍然可以与操作系统进行大量交互，并且每个系统调用响应信号的方式在平台之间可能存在很大差异。所以总的来说答案是否定的。