子程序条目中UNKNOWN的奇怪副本

Question

我在使用git时遇到了SVN perl模块中的错误:

Bizarre copy of UNKNOWN in subroutine entry at 
/usr/lib/perl5/vendor_perl/SVN/Base.pm line 80.

而且我不太确定这是一个perl bug还是一个颠覆bug.这是相关部分:

# insert the accessor
if (m/(.*)_get$/) {
    my $member = $1;
    *{"${caller}::$1"} = sub {
    &{"SVN::_${pkg}::${prefix}${member}_". # <<<< line 80
          (@_ > 1 ? 'set' : 'get')} (@_)
      }
}

(完整来源)

什么是"奇怪的副本"？谁的错呢？

编辑:软件版本

• 颠覆1.6.15-1
• perl 5.14.0-1

---

解决方案:使用不兼容的标志进行编译时会发生这种情况:

https://groups.google.com/d/msg/subversion_users/EOru50ml6sk/5xrbu3luPk4J

Answer 1

perldoc为您提供简短的答案,但简短的STFW会话会产生更多细节.这基本上是Perl中碎片堆栈的证据.

琐碎的例子:

#!/usr/bin/perl
my @A = 1..5;
sub blowUp {
   undef @A;
   my $throwAway = {};
   print for @_;       # <== line 6
}
blowUp(@A);
__END__
bash$ ./blowitup
Bizarre copy of HASH in print at ./blowitup line 6.

并且为了使它更有趣,没有$ throwAway赋值,这是一个看不见的错误(虽然在'使用警告'下它至少仍会告诉你,你正在尝试访问未初始化的值).只是当你做一个新的任务,你看到了奇怪的行为.

由于@_基本上词法范围的子程序和参数按引用传递的,这小子程序基本上是由undef'ing是@_指着如果你改变(你会得到同样的行为的东西拉出来的地毯从下本身未成年人的任务,fwiw).我在perl5-porters上发现了一些帖子,提到这是一个事实,即堆栈中的项目不是引用计数,因此没有干净地释放.

因此,虽然我没有深入查看完整源代码中的所有代码,但我会继续猜测那里的某些东西搞乱了@_传递的内容; 然后当再次引用@_时,Perl告诉你丹麦的东西已经烂了.

当前的问题是脚本/模块中的错误,哇.Perl没有引用计算这些项目的更深层次的问题也存在,但我怀疑你在短期内修复模块会有更好的运气.:-)

HTH-布莱恩

Answer 2

当Perl的堆栈损坏或包含非标量时,会出现"奇怪的副本".它是由Perl本身或XS模块中的错误引起的.(Brian Gerard的例子练习了一长串与堆栈相关的已知错误中没有被重新计算的错误.)

您可以通过将以下内容添加到anon sub来隔离问题:

warn("Calling SVN::_${pkg}::${prefix}${member}_".(@_ > 1 ? 'set' : 'get')."...");

您甚至可能希望发出堆栈跟踪,但您可能必须自己构建它caller以避免在构建堆栈跟踪时触发混乱.