根据perldoc -f die
,其中文件$SIG{__DIE__}
尽管此功能只能在您的程序退出之前运行,但目前并非如此:$SIG{__DIE__}
钩子当前甚至在已评估的块/字符串中也被调用!如果希望钩子在这种情况下什么都不做,请将 die @_ if $^S;
作为处理程序的第一行(请参阅 perlvar 中的 $^S
)。由于这会促进远距离的奇怪动作,因此可能会在未来版本中修复这种违反直觉的行为。
所以让我们来看看一个基本的信号处理程序,它将用 eval { die 42 }
触发,
package Stupid::Insanity {
BEGIN { $SIG{__DIE__} = sub { print STDERR "ERROR"; exit; }; }
}
我们保证安全
package Stupid::Insanity {
BEGIN { $SIG{__DIE__} = sub { return if $^S; print STDERR "ERROR"; exit; }; }
}
现在这将NOT用eval { die 42 }
触发,但是当相同的代码在像
BEGIN {}
块中时它会触发
BEGIN { eval { die 42 } }
这可能看起来很晦涩,但它是真实的,因为您可以看到它是 used in this method here (where the require
fails and it's caught by an eval
),或者在我的情况下特别是 Net::DNS::Parameters
。你可能认为你也可以捕捉到编译器阶段,就像这样,
BEGIN {
$SIG{__DIE__} = sub {
return if ${^GLOBAL_PHASE} eq 'START' || $^S;
print STDERR "ERROR";
exit;
};
}
这适用于上述情况,但遗憾的是它不适用于其中包含 BEGIN 语句的文档,
eval "BEGIN { eval { die 42 } }";
有没有办法解决这个问题并编写一个不干扰 $SIG{__DIE__}
的 eval
处理程序?