diff options
| author | Karl Williamson <khw@khw-desktop.(none)> | 2010-07-09 09:00:09 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@khw-desktop.(none)> | 2010-07-13 17:09:12 -0600 |
| commit | cc26ddeba958e8f9785b940e55b354e757252c7f (patch) | |
| tree | 52b52607cbce1e0d5239c6c281bb52cd93227cba /lib | |
| parent | bb679142c677ac7ca78c6d5c6821dceaa019e08d (diff) | |
| download | perl-cc26ddeba958e8f9785b940e55b354e757252c7f.tar.gz | |
charnames.pm: A couple more comments
Diffstat (limited to 'lib')
| -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 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) { |