5

根据 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
4

2 回答 2

5

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

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

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

哦，它实际上在Carpperldoc 中：

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

函数中的这一行Carp::short_error_loc是你的确凿证据：

return 0 unless defined($caller);    # What happened?
于 2012-08-09T16:04:26.873 回答
3

一半的答案：这与代码都在同一个包中有关。如果您从不同的包调用入口点，则croak可以按预期工作。

于 2012-08-09T11:16:31.593 回答