diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-06-15 12:17:41 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-06-15 18:29:01 -0600 |
| commit | 69ccf208bd11693fe59e2bb446196b2cad78a412 (patch) | |
| tree | f81fd5989082ff78a4a14d9fe0ddbf027c4f955e | |
| parent | 0ae19c2925f45d75bbc0f8b7ec3a854578a66eda (diff) | |
| download | perl-69ccf208bd11693fe59e2bb446196b2cad78a412.tar.gz | |
charnames: small comment fixes
| -rw-r--r-- | lib/charnames.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/charnames.pm b/lib/charnames.pm index 5cda64cc51..c8bd923ff6 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 |