ファイルテスト演算子（-X）を変更する方法が分からない とりあえずstat()みたいにファイル名かファイルハンドルを受け取るものに関しては my $stat = eval {$where->can('stat')}; *{"$where\::stat"} = sub (*) { my $file = shift || $_; is_utf8($file) …