perl - 为什么我在 Perl 中将 binmode 与线程一起使用时会出现段错误？

Question

这个电话

my $th = threads->create(\&print, "Hello thread World!\n");
$th->join();

工作正常。但是一旦我添加了

binmode(STDOUT, ":encoding(ISO-8859-1)");

对于我的脚本文件，我收到“段错误”、“访问被拒绝”之类的错误。

在尝试调用 perl 线程时定义编码类型有什么问题？

例子:

use strict; use warnings;
use threads;

binmode(STDOUT, ":encoding(ISO-8859-1)");

my $th = threads->create(\&print, "Hello thread World!\n");
$th->join();

sub print {
    print @_;
}

此代码对我不起作用。

亲切的问候

--安迪

Answer 1

报告为 bug in Perl's bug tracker .我在 Windows 上的 5.12 RC0 上遇到了同样的故障。