问题描述
根据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
处理程序?
解决方法
检查caller(1)
使用 [caller(1)]->[3] eq '(eval)'
return if [caller(1)]->[3] eq '(eval)' || ${^GLOBAL_PHASE} eq 'START' || $^S;
抓取整个调用堆栈
您可以抓取整个堆栈,并确保您不深入评估,
for ( my $i = 0; my @frame = caller($i); $i++ ) {
return if $frame[3] eq '(eval)'
}
是的,这完全是精神错乱。感谢 irc.freenode.net/#perl
上的 mst 提供指针。