Searched refs:grk (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/
H A Dencoding.t21 my $grk = "grk$$";
28 if (open(GRK, ">$grk")) {
36 open(my $i,'<:encoding(iso-8859-7)',$grk);
63 open(my $o,'>:encoding(iso-8859-7)',$grk);
71 if (open(GRK, "<$grk")) {
154 1 while unlink($grk, $utf, $fail1, $fail2, $russki, $threebyte);

Completed in 14 milliseconds