由于某种原因无法在 Carp::croak() 中禁用堆栈跟踪

Question

根据 Carp 模块文档，croak()除非$Carp::Verbose评估为真，否则不应产生任何堆栈跟踪。但出于某种原因，croak()总是像confess()在我的环境中一样，即总是打印堆栈跟踪，即使它不应该......

这是一个测试脚本：

#!/usr/bin/perl

use Modern::Perl;
use Carp;

sub func
{
    say "Carp::Verbose = $Carp::Verbose";
    croak "There should be no stack trace after this message!";
}

sub main
{
    func();
}

main;

这是它在我的系统上产生的结果：

$ ./croak
Carp::Verbose = 0
There should be no stack trace after this message! at ./croak line 8
    main::func() called at ./croak line 13
    main::main() called at ./croak line 16

也许有人遇到过这个问题或对根本原因有任何线索？

以下是有关我的环境的一些信息：

Ubuntu 12.04 LTS
Linux 3.2.0-27-generic x86_64
perl 5, version 14, subversion 2 (v5.14.2) built for x86_64-linux-gnu-thread-multi

我的 SL6 系统也出现了同样的错误行为：

Scientific Linux SL release 6.3 (Carbon)
kernel-2.6.32-279.1.1.el6.x86_64
perl, v5.10.1 (*) built for x86_64-linux-thread-multi

Answer 1

之一Carp的规则堆栈跟踪的帧以用于错误消息是用于其中：

1. 从包到自身的任何调用都是安全的。

由于您的代码不使用除 之外的任何包main，并且由于另一个规则是Carp包本身是安全的，Carp因此无法决定将哪一行代码用于其错误消息，因此它会退出并打印出整个堆栈跟踪。

哦，它实际上在Carpperldoc 中：

他们所做的是在调用堆栈中搜索函数调用堆栈，其中没有被告知不应出现错误。如果每个调用都被标记为安全，他们就会放弃并提供完整的堆栈回溯。

Carp::short_error_loc函数中的这一行是你的吸烟枪：

return 0 unless defined($caller);    # What happened?