Lines Matching refs:open

24 if (open(GRK, '>', $grk)) {
32     is(open(my $i,'<:encoding(iso-8859-7)',$grk), 1);
33     is(open(my $o,'>:utf8',$utf), 1);
39 if (open(UTF, '<', $utf)) {
49     is (open(my $i,'<:utf8',$utf), 1);
50     is (open(my $o,'>:encoding(iso-8859-7)',$grk), 1);
56 if (open(GRK, '<', $grk)) {
64 is (open(FAIL, ">:encoding(NoneSuch)", $fail1), undef, 'Open should fail');
67 is(open(RUSSKI, '>', $russki), 1);
70 open(RUSSKI, '<', $russki);
88 is(open(FAIL, ">:encoding(latin42)", $fail2), undef, 'Open should fail');
96 open(F,'>:utf8',$threebyte) || die "Cannot open $threebyte:$!";
101 open(F,'<:encoding(utf-8)',$threebyte) || die "Cannot open $threebyte:$!";
107 open(F,'>:raw',$threebyte) || die "Cannot open $threebyte:$!";
115 open(F,'<:encoding(utf-8)',$threebyte) || die "Cannot open $threebyte:$!";
180 open $fh, ">:encoding(cower)", \$buf;
186 open $fh, "<:encoding(cower)", \$buf;
212     open my $fh, ">:encoding(globber)", \$buf;
219 open $fh, "<:encoding(globber)", \$buf;
230     open my $fh, "<:encoding(UTF16-LE)", \$b or die;