perl - 如何打破 perl 调试器中的警告？

Question

我有一个有时会发出警告的代码路径。由于这条路径被使用了很多次，我不想在每次通过时都中断。我怎样才能只在它发出警告时才中断？

Answer 1

您可以使用“信号处理程序”发出警告并设置标志，然后在设置标志时中断。

our $warn_flag = 0;
$SIG{__WARN__} = sub { $warn_flag = 1; CORE::warn(@_) };

...

for $i (1 .. 1_000_000_000) {
    do_something_that_might_warn();
    $DB::single ||= $warn_flag;
    $warn_flag = 0;
}

Answer 2

use warnings qw(FATAL);

这会将警告转换为词法范围内的错误，这将自动导致调试器中断。