这在 Perl v5.22 中已修复。
Perl v5.18 的词法子例程是否带有sort？我今天终于用上了它们，我有一个复杂的排序例程，它依赖于数据结构中的当前位置来查看更深的部分。
这是一个小程序：
use v5.18;
use feature qw(lexical_subs);
no warnings qw(experimental::lexical_subs);
my sub by_numbers { $a <=> $b }
my @sorted = sort by_numbers qw( 4 8 2 3 0 5 7 6 1 9 );
say "sorted: @sorted";
显然 sort 对此一无所知，因为它仍在寻找%main::命名的子例程：
% perl5.18.2 test.pl
Undefined sort subroutine "main::by_numbers" called at test.pl line 7.
% perl5.20.1 test.pl
Undefined sort subroutine "main::by_numbers" called at test.pl line 7.
我有点失望，因为这是rjbs在 perl 5 的词法子例程中使用的第一个用例。
这部分无关紧要，因为我查看的是当前版本的测试而不是 v5.18 版本。
我在 perl 源代码中查看它的t/op/lexsub.t ，我发现三个涉及sort的测试。它们在单独运行时会失败，并且在主要方面有所不同：在符号表中有一个同名的已定义子例程（正如 rjbs 所指出的，这些测试来自当前源，并且不存在于受影响的稳定版本中。）：
use v5.18;
use feature qw(lexical_subs);
no warnings qw(experimental::lexical_subs);
use Test::More;
sub _cmp { $a cmp $b }
sub bar::_cmp { $b cmp $a }
{
package bar;
our sub _cmp;
package main;
is join(" ", sort _cmp split //, 'oursub'), 'u u s r o b', 'sort our_sub'
}
{
state sub _cmp { $b cmp $a }
is join(" ", sort _cmp split //, 'lexsub'), 'x u s l e b',
'sort state_sub LIST'
}
{
my sub _cmp { $b cmp $a }
is join(" ", sort _cmp split //, 'lexsub'), 'x u s l e b',
'sort my_sub LIST'
}
sort在所有情况下都完全忽略了词法子例程（对于 perls v5.18 和 v5.20）：
not ok 1 - sort our_sub
# Failed test 'sort our_sub'
# at test.pl line 29.
# got: 'b o r s u u'
# expected: 'u u s r o b'
not ok 2 - sort state_sub LIST
# Failed test 'sort state_sub LIST'
# at test.pl line 35.
# got: 'b e l s u x'
# expected: 'x u s l e b'
not ok 3 - sort my_sub LIST
# Failed test 'sort my_sub LIST'
# at test.pl line 41.
# got: 'b e l s u x'
# expected: 'x u s l e b'
# Tests were run but no plan was declared and done_testing() was not seen.
除了由于未能隔离环境而导致此测试存在问题之外，还很难判断测试人员在做什么以及每个测试需要多少以前的、遥远的设置。如果有的话，测试本身的文档很少。
回到重要的事情
我在这里错过了什么吗？似乎这从未奏效。那么诀窍是，测试文件中的什么允许它通过？
请不要建议解决方法。这不是我问的原因。