在Perl中调试分段错误有哪些好的方法或步骤？

>当我在至少一个地方使用Smart::Comments时
>运行调试器.

我跟踪了这??个电话：

$action->{breakdown} 
    = join( ' ',each_pair { 
                my ( $name,$length ) = @_;
                return "x$length" if $name eq 'FILLER';
                push @$field_list_ref,$name;
                return "A$length";

            } @$field_def_ref
    );

其中each_pair在另一个模块中定义为：

sub each_pair (&@) { 
    my $block   = shift;
    return unless @_;
    my $caller  = caller();
    my $aref    = qualify( 'a',$caller );
    my $bref    = qualify( 'b',$caller );
    my @results;
    my $pairs   = 0;

    for ( my $index = 0; $index < $#_; $index += 2 ) { 
        $pairs++;
        my @pair                 = @_[$index..($index+1)];
        no strict 'refs';
        local ( $$aref,$$bref ) = @pair;
        push @results,$block->( @pair );
    }
    return wantarray || $pairs != 1 ? @results : shift @results;
}

>现在我知道我可以用List::MoreUtils::natatime替换each_pair(虽然我听说有一些错误),他们最近才允许这个模块进入我们的环境,我仍然对这个调用导致分段错误的原因感兴趣 – 或者其他Perl程序员由于调试分段错误.

我已经失去了一点时间.

编辑

我有其他模块使用这个函数,有些人希望能够使用$a和$b,也可以在同一个模块的其他地方使用另一个列表.我可以更改它的这个调用,我可以为这个文件更改它,但是为每个成功使用它的地方更改它可能比我在这个晚些时候允许做的更多更改.