6 unless (find PerlIO::Layer 'perlio') {
7 print "1..0 # Skip: not perlio\n";
17 if (open(GRK, ">$grk")) {
18 # alpha beta gamma in ISO 8859-7
19 print GRK "\xe1\xe2\xe3";
25 open(my $i,'<:encoding(iso-8859-7)',$grk);
27 open(my $o,'>:utf8',$utf);
29 print $o readline($i);
35 if (open(UTF, "<$utf")) {
36 # alpha beta gamma in UTF-8 Unicode (0x3b1 0x3b2 0x3b3)
37 print "not " unless <UTF> eq "\xce\xb1\xce\xb2\xce\xb3";
44 open(my $i,'<:utf8',$utf);
46 open(my $o,'>:encoding(iso-8859-7)',$grk);
48 print $o readline($i);
54 if (open(GRK, "<$grk")) {
55 print "not " unless <GRK> eq "\xe1\xe2\xe3";