From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 30 Oct 2001 02:56:41 +0000 (+0000)
Subject: Comment nits.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f14ed3c65f717a9c4095c171cd400c1bb4c6fc07;p=p5sagit%2Fp5-mst-13.2.git

Comment nits.

p4raw-id: //depot/perl@12775
---

diff --git a/lib/encoding.t b/lib/encoding.t
index 6e18d34..40d97a2 100644
--- 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;