Windows PerlIO:：encoding的意外行为

当我运行这个脚本时，我得到了8行输出，而不是2行

#!perl
use strict;
use warnings;
use 5.10.1;

use PerlIO::encoding;
use Encode qw(:fallbacks);
$PerlIO::encoding::fallback = Encode::FB_HTMLCREF;
binmode STDOUT, ":encoding(cp850)";

say "TEST";
say "Hell\x{263a}\x{263b}llo.txt";

输出：

# TEST
# TEST
# Hell☺☻llo.txt
# TEST
# Hell☺☻llo.txt
# TEST
# Hell☺☻llo.txt
#

---

为什么这个脚本会输出这么多行？

很简单。很可能是同一个bug，这使得它几乎有10年的历史了。（这正是它被报道的时候；我猜这个错误可以追溯到

$PerlIO:：encoding:：fallback

第一次实现的时候。）

在我看来像是一个错误。在perl 5.18.2上确认，类似于

utf8

的其他编码也会发生同样的情况。这看起来很像是一件事。