perl - autodie-pragma はエンコーディングに影響を与えますか?

Question

「オートダイ」の後に別の出力を取得するのはなぜですか?

#!/usr/bin/env perl
use warnings;
use 5.012;
use utf8;
use open ':encoding(utf-8)';
use open ':std';

open my $fh, '>', 'test.txt' or die $!;
say $fh 'käse';
close $fh;

open my $fh1, '<', 'test.txt' or die $!;
while ( my $row = readline( $fh1 ) ) {
    print $row;
}
close $fh1;

use autodie;

open my $fh2, '<', 'test.txt';
while ( my $row = readline( $fh2 ) ) {
    print $row;
}
close $fh2;

# Output:
# käse
# käse

Answer 1

誰かがより良い理由でやって来ない限り、これはプラグマautodieに関連するバグのように見えます。open

最後に開いたものを変更しopen my $fh2, '<:utf8', 'test.txt';て、システムの問題を修正します。したがって、これは一時的な回避策になる可能性があります。

RTを確認しましたが、これは登録済みのバグです。

https://rt.cpan.org/Public/Bug/Display.html?id=54777

関数をオーバーロードするさまざまな方法を使用して、各プラグマに関係しているように見えopenます。