WWW::Mechanize::GZip 触发 __DIE__ 信号...为什么？

Question

我花了一段时间才找到代码中突然出现的问题，但 WWW::Mechanize::GZip 似乎以某种方式触发了我的 $SIG{DIE} 处理程序。考虑这段代码：

use strict;
use WWW::Mechanize::GZip;

$SIG{__DIE__} = sub {
   print "WTF???  WHY IS THIS BEING TRIGGERED?\n";
};

my $mech = WWW::Mechanize::GZip->new();
$mech->get( 'http://ammoseek.com/' );

print $mech->content(), "\n";

知道为什么会发生这种情况吗？我能做些什么来预防它？

谢谢，

-迈克

Answer 1

您可以通过让 $SIG{__DIE__} 处理程序打印来了解死亡原因/原因的详细信息：

• 错误消息（处理程序中的$_[0]）

• 处理程序中的堆栈跟踪（例如通过调用Carp::cluck） p>

作为替代方案，使用 onerror => \&func 参数传递给 WWW::Mechanize::GZip 构造函数来创建自定义错误处理程序（假设错误不是来自 Compress::Zlib）。来自 WWW::Mechanize POD

错误=> \&函数

参考模具兼容
函数，如 Carp::croak，即
当出现致命错误时调用。

如果设置为 undef，则不会出现错误
将永远显示。

如果未传递该值，Mech 将使用
Carp::croak（如果安装了 Carp），或者
CORE::如果没有就死。

由于 WWW::Mechanize::GZip 是 WWW::Mechanize 的直接子类，因此您可以在其中的构造函数中使用相同的参数。

Answer 2

假设没有真正的异常，即代码在没有 $SIG{__DIE__} 的情况下正常运行，那么该方法调用中的某处可能正在使用 eval BLOCK code> 捕获错误并从错误中恢复。使用 eval BLOCK 作为异常处理程序的几个问题之一是它会触发 $SIG{__DIE__}，即使它实际上不应该触发。

为了避免这种情况，请检查 $SIG{__DIE__} 中的 $^S 是否为 false。

local $SIG{__DIE__} = sub {
    return if $^S;

    ...your error catching code...
};

有关详细信息，请参阅 perlvar。

顺便说一句，您可以通过打印 @_ 来发现触发此异常的详细信息。

local $SIG{__DIE__} = sub {
    print "SIGDIE caught @_";
};

更好的是，除非您确实需要全局芯片处理程序，否则请使用eval BLOCK。

eval {
    my $mech = WWW::Mechanize::GZip->new();
    $mech->get( 'http://ammoseek.com/' );
    1;
} or do {
    die "WWW::Mechanize::GZip failed and said: $@";
};

看看 Try::Tiny 以获得更好的异常处理程序。