Lines Matching refs:open
28 if (open(GRK, ">$grk")) {
36 open(my $i,'<:encoding(iso-8859-7)',$grk);
38 open(my $o,'>:utf8',$utf);
46 if (open(UTF, "<$utf")) {
61 open(my $i,'<:utf8',$utf);
63 open(my $o,'>:encoding(iso-8859-7)',$grk);
71 if (open(GRK, "<$grk")) {
80 if (open(FAIL, ">:encoding(NoneSuch)", $fail1)) {
93 if (open(RUSSKI, ">$russki")) {
96 open(RUSSKI, "$russki");
116 print "not ok 11 # open failed: $!\n";
123 if (open(FAIL, ">:encoding(latin42)", $fail2)) {
142 open(F,'>:utf8',$threebyte) || die "Cannot open $threebyte:$!";
147 open(F,'<:encoding(utf-8)',$threebyte) || die "Cannot open $threebyte:$!";