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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dutf8.t324 my ($chrE4, $chrF6) = (chr(0xE4), chr(0xF6));
326 { ($chrE4, $chrF6) = (chr(0x43), chr(0xEC)); }
327 print F "foo", $chrE4, "\n";
333 my ($chrE4, $chrF6) = ("E4", "F6");
334 if (ord('A') == 193) { ($chrE4, $chrF6) = ("43", "EC"); } # EBCDIC
335 like( $@, qr/utf8 "\\x$chrE4" does not map to Unicode .+ <F> line 1/,

Completed in 15 milliseconds