diff options
| author | Peter J. Acklam) (via RT <perlbug-followup@perl.org> | 2011-01-06 23:12:59 -0800 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2011-01-07 11:40:18 +0100 |
| commit | 98dc955152ee6f0a1849a6e47a0c2c3b5fae00a6 (patch) | |
| tree | 4a1a6ed94068d15eaf6c1f2ab7a71c3ecc3767ce /lib/charnames.pm | |
| parent | 1b298e71cb5407f2917b03adc3bddf8526e7043d (diff) | |
| download | perl-98dc955152ee6f0a1849a6e47a0c2c3b5fae00a6.tar.gz | |
Fix typos (spelling errors) in lib/*
# New Ticket Created by (Peter J. Acklam)
# Please include the string: [perl #81890]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=81890 >
Signed-off-by: Abigail <abigail@abigail.be>
Diffstat (limited to 'lib/charnames.pm')
| -rw-r--r-- | lib/charnames.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/charnames.pm b/lib/charnames.pm index 750b1cf3d3..853d4ff496 100644 --- a/lib/charnames.pm +++ b/lib/charnames.pm @@ -626,7 +626,7 @@ sub lookup_name ($$$) { } else { - # Not algorthmically determinable; look up in the table. + # Not algorithmically determinable; look up in the table. if ($txt =~ /\t\Q$name\E$/m) { @off = ($-[0] + 1, $+[0]); # The 1 is for the tab $found_full_in_table = 1; @@ -669,9 +669,9 @@ sub lookup_name ($$$) { # Here, 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 preceeded immediately by a + # (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 - # sequences won't have the 7th preceeding character be a \n. + # sequences won't have the 7th preceding character be a \n. # (Actually, for the very first entry in the table this isn't strictly # true: subtracting 7 will yield -1, and the substr below will # therefore yield the very last character in the table, which should |