Comment nits.

p4raw-id: //depot/perl@12775

diff --git a/lib/encoding.t b/lib/encoding.t
index 6e18d34..40d97a2 100644 (file)
--- a/lib/encoding.t
+++ b/lib/encoding.t
@@ -1,7 +1,7 @@
 print "1..3\n";
 
 use encoding "latin1"; # ignored (overwritten by the next line)
-use encoding "greek";
+use encoding "greek";  # iso 8859-7 (no "latin" alias, surprise...)
 
 $a = "\xDF";
 $b = "\x{100}";
@@ -9,7 +9,7 @@ $b = "\x{100}";
 my $c = $a . $b;
 
 # "greek" is "ISO 8859-7", and \xDF in ISO 8859-7 is
-# \x3AF in Unicode (GREEK SMALL LETTER IOTA WITH TONOS),
+# \x{3AF} in Unicode (GREEK SMALL LETTER IOTA WITH TONOS),
 # instead of \xDF in Unicode (LATIN SMALL LETTER SHARP S)
 
 print "not " unless ord($c) == 0x3af;