如果每个人都使用的调试代码的机制覆盖了它，您如何捕获有问题的 sig die 处理程序？

Question

假设您使用 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 将覆盖错误的信号处理程序，您的代码将神奇地工作。您如何调试引入错误信号处理程序的代码？

Answer 1

`Devel::Confess`

从 mst 到 irc.freenode.net/#perl，

< mst> EvanCarroll: Devel::Confess honours the old signal handlers
< mst> EvanCarroll: it's basically a better Carp::Always
< EvanCarroll> Cool cool, thanks for that tidbit.

如果每个人都使用的调试代码的机制覆盖了它，您如何捕获有问题的 sig die 处理程序？

How do you catch a buggy sig die handler if the mechanism to debug code that everyone uses overrides it?

perl

signals

eval

carp

die

`Devel::Confess`