summaryrefslogtreecommitdiff
path: root/lib/charnames.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/charnames.pm')
-rw-r--r--lib/charnames.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/charnames.pm b/lib/charnames.pm
index 5303d5e152..93747fd317 100644
--- a/lib/charnames.pm
+++ b/lib/charnames.pm
@@ -399,7 +399,7 @@ my %deprecated_aliases = (
'REVERSE INDEX' => 0x8D, # REVERSE LINE FEED
);
-my $txt;
+my $txt; # The table of official character names
# Designed so that test decimal first, and then hex. Leading zeros
# imply non-decimal, as do non-[0-9]
@@ -418,7 +418,7 @@ sub carp
require Carp; goto &Carp::carp;
} # carp
-sub alias (@)
+sub alias (@) # Set up a single alias
{
my $alias = ref $_[0] ? $_[0] : { @_ };
foreach my $name (keys %$alias) {