perl - 为什么使用警告 FATAL => 'all' 似乎不起作用？

Question

这个脚本:

use warnings FATAL => 'all';

warn 'warning';
die 'death';

...导致“警告”被记录，但此时不会死亡，而是因“死亡”而死亡。

我有一个 mod_perl 模块，它会覆盖 $main::SIG{__DIE__} ，以便在开发过程中基本上向浏览器吐出 die() 消息，但它不会触及 SIG{__WARN__ }，那么这里发生了什么？

这是在 Windows Server 2003 上的 perl 5.10.1 上，在 PerlSwitches 中使用“-w”。

Answer 1

它似乎不起作用，因为您的测试没有测试您想要测试的内容。试试这个:

use warnings FATAL => 'all';

print undef;
die 'death';

正如无警告不会阻止warn工作一样，致命警告不会使warn消亡.