3 use encoding "latin1"; # ignored (overwritten by the next line)
4 use encoding "greek"; # iso 8859-7 (no "latin" alias, surprise...)
6 # "greek" is "ISO 8859-7", and \xDF in ISO 8859-7 is
7 # \x{3AF} in Unicode (GREEK SMALL LETTER IOTA WITH TONOS),
8 # instead of \xDF in Unicode (LATIN SMALL LETTER SHARP S)
13 print "not " unless ord($a) == 0x3af;
16 print "not " unless ord($b) == 0x100;
23 print "not " unless ord($c) == 0x3af;
26 print "not " unless length($c) == 2;
29 print "not " unless ord(substr($c, 1, 1)) == 0x100;