为何Perl的eval块会调用用户定义的__DIE__异常处理程序？

我在Perl代码中使用eval执行$v1 $op $v2，目的是确保运算结果有效且程序不会终止。但当$op eq '/'且$v2 == 0时，发现用户定义的die处理程序被意外触发；而没有自定义处理程序时，常规的die消息会被正常抑制。

复现示例 #

DB<5> $v1=1

  DB<6> $v2=0

  DB<12> x $r = eval { $v1 / $v2 }, $r, $@
0  undef
1  undef
2  'Illegal division by zero at (eval 17)[/usr/lib/perl5/5.26.1/perl5db.pl:738] line 2.
'
  DB<17> $SIG{__DIE__} = sub { print "Oops!\n" }

  DB<18> x $r = eval { $v1 / $v2 }, $r, $@
Oops!
0  undef
1  undef
2  'Illegal division by zero at (eval 23)[/usr/lib/perl5/5.26.1/perl5db.pl:738] line 2.
'

问题 #

为什么eval块内会调用用户定义的__DIE__处理程序？为什么Perl不像抑制默认die处理那样抑制这个自定义处理程序？（环境：perl-5.26.1）

解答 #

这是Perl的设计特性，核心区别在于**eval抑制的是die的默认终止行为，而非__DIE__处理程序的调用**：

• 当你设置$SIG{__DIE__}后，每次调用die（包括eval内部触发的die）都会优先执行这个自定义处理程序，这是Perl提供的全局die钩子，不受eval捕获逻辑的影响。
• eval的作用是捕获die抛出的异常，阻止程序终止，并将错误信息存入$@变量，但它并不会拦截__DIE__处理程序的执行流程。
• 没有自定义__DIE__时，die的默认动作是打印错误信息并退出程序，但eval捕获异常后会抑制这个默认退出动作，所以你看不到错误输出；而有自定义处理程序时，处理程序会先执行，之后eval才捕获异常，因此会看到"Oops!"输出，同时$@中依然保留错误信息。

内容的提问来源于stack exchange，提问作者U. Windl