From: Karl Williamson <public@khwilliamson.com>
Date: Wed, 15 Jun 2011 18:17:41 +0000 (-0600)
Subject: charnames: small comment fixes
X-Git-Tag: accepted/trunk/20130322.191538~3718
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=69ccf208bd11693fe59e2bb446196b2cad78a412;p=platform%2Fupstream%2Fperl.git

charnames: small comment fixes
---

diff --git a/lib/charnames.pm b/lib/charnames.pm
index 5cda64c..c8bd923 100644
--- a/lib/charnames.pm
+++ b/lib/charnames.pm
@@ -13,7 +13,7 @@ use bytes ();          # for $bytes::hint_bits
 # it alone, but since that is harder for a human to parse, I left it as-is.
 
 my %system_aliases = (
-    # Icky 3.2 names with parentheses.
+    # Synonyms for the icky 3.2 names that have parentheses.
     'LINE FEED'             => pack("U", 0x0A), # LINE FEED (LF)
     'FORM FEED'             => pack("U", 0x0C), # FORM FEED (FF)
     'CARRIAGE RETURN'       => pack("U", 0x0D), # CARRIAGE RETURN (CR)
@@ -662,12 +662,14 @@ sub lookup_name ($$$) {
           return ($wants_ord) ? 0xFFFD : pack("U", 0xFFFD);
         }
 
+        # Here have found the input name in the table.
         @off = ($-[0] + 1, $+[0]);  # The 1 is for the tab
       }
 
       if (! defined $utf8) {
 
-        # Here, we haven't set up the output, but we know where in the string
+        # Here, the input name has been found; we haven't set up the output,
+        # but we know where in the string
         # the name starts.  The string is set up so that for single characters
         # (and not named sequences), the name is preceded immediately by a
         # tab and 5 hex digits for its code, with a \n before those.  Named