diff options
| author | Karl Williamson <khw@khw-desktop.(none)> | 2010-07-11 11:48:41 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@khw-desktop.(none)> | 2010-07-13 17:13:13 -0600 |
| commit | e85f9eedae67b31e19f355584e6caecb9e642850 (patch) | |
| tree | f5ae3da279fc04fb3e0c1d3d7d760aa4f243c6da /lib/charnames.pm | |
| parent | 4cf086c7e60105e8ed2fec3aa19676da387282a6 (diff) | |
| download | perl-e85f9eedae67b31e19f355584e6caecb9e642850.tar.gz | |
Yet another comment change
Diffstat (limited to 'lib/charnames.pm')
| -rw-r--r-- | lib/charnames.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/charnames.pm b/lib/charnames.pm index 40222861b2..6957d0f8fe 100644 --- a/lib/charnames.pm +++ b/lib/charnames.pm @@ -550,7 +550,7 @@ sub lookup_name ($;$) { if (! defined $ord) { - + # See if has looked this up earlier. if ($^H{charnames_full} && exists $full_names_cache{$name}) { $ord = $full_names_cache{$name}; } @@ -636,7 +636,7 @@ sub lookup_name ($;$) { # Here is compile time, "use bytes" is in effect, and the character # won't fit in a byte - # Use the official name if have one + # Prefer any official name over the input one. $name = substr($txt, $off[0], $off[1] - $off[0]) if @off; croak not_legal_use_bytes_msg($name, $ord); } # lookup_name |