Perl崩溃:在线程中错误地使用了glob？

Question

以下脚本在perl 5.16中崩溃.glob()在线程中使用有什么问题吗？

use strict;
use warnings;
use 5.010;

use threads; 

sub f { 
    my $no = shift; 
    my @arr = glob("*"); 
    say "thread $no: ", scalar(@arr); 
} 

foreach my $tno (1..5) { 
    my $thr = threads->create(\&f, $tno); 
    $thr->join(); 
}

它打印

thread 1: 33

然后崩溃与分段错误(MacOS)或访问冲突(Windows 7).用v5.16.2 on Mac OSX (darwin-thread-multi-2level)和测试ActivePerl on Windows 7 64bit (v5.16.3 built for MSWin32-x86-multi-thread).

Answer 1

这是perl中的一个错误,我已经在5.18.2中修复了.