假设您使用 cpan（或其他外部）模块，就像我们在此处虚构的模块一样Stupid::CPAN::Module::OfSatan

package Stupid::CPAN::Module::OfSatan {
  BEGIN { $SIG{__DIE__} = sub { print STDERR "ERROR"; exit; }; }
}

现在在你的代码中你有一些非常无辜的东西，

package main {
  eval { die 42 };
}

这将触发您的错误信号处理程序。您将想知道错误信号处理程序的定义位置，因此您将执行一些逻辑操作，例如插入 Carp::Always,

package main {
  use carp::Always;
  eval { die 42 };
}

carp::Always 然后将覆盖有问题的信号处理程序，您的代码将神奇地工作。您如何调试引入错误信号处理程序的代码？