diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-06-02 12:05:34 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-06-02 12:19:04 -0600 |
| commit | fe3193b514b01b0a636361da0103ed33393cf9c4 (patch) | |
| tree | fe33d9a73a7aa6e6066234dd889daa760489cf49 /lib/_charnames.pm | |
| parent | c292d35a225572156ccde6f3a812f532f4347fad (diff) | |
| download | perl-fe3193b514b01b0a636361da0103ed33393cf9c4.tar.gz | |
mktables: Convert to BELL meaning U+1F514
As a result of the Unicode 6.0 mistake of using "BELL" to refer to
a different code point, Perl has deprecated use of this name for 2 major
release cycles, while not fully implementing Unicode in the interim, to
allow any affected code to migrate to the new name
This commit now switches to the new meaning of BELL.
Diffstat (limited to 'lib/_charnames.pm')
| -rw-r--r-- | lib/_charnames.pm | 25 |
1 files changed, 11 insertions, 14 deletions
diff --git a/lib/_charnames.pm b/lib/_charnames.pm index 62ee39560d..5431d0fe6d 100644 --- a/lib/_charnames.pm +++ b/lib/_charnames.pm @@ -7,7 +7,7 @@ package _charnames; use strict; use warnings; use File::Spec; -our $VERSION = '1.31'; +our $VERSION = '1.32'; use unicore::Name; # mktables-generated algorithmically-defined names use bytes (); # for $bytes::hint_bits @@ -77,11 +77,8 @@ my %system_aliases = ( #my %loose_system_aliases = ( #); -my %deprecated_aliases = ( - # Use of these gives deprecated message. - # Unicode 6.0 co-opted this for U+1F514, so deprecate it for now. - 'BELL' => pack("U", 0x07), -); +#my %deprecated_aliases; +#$deprecated_aliases{'BELL'} = pack("U", 0x07) if $^V lt v5.17.0; #my %loose_deprecated_aliases = ( #); @@ -320,14 +317,14 @@ sub lookup_name ($$$) { # elsif ($loose && exists $loose_system_aliases{$lookup_name}) { # $utf8 = $loose_system_aliases{$lookup_name}; # } - if (exists $deprecated_aliases{$lookup_name}) { - require warnings; - warnings::warnif('deprecated', - "Unicode character name \"$name\" is deprecated, use \"" - . viacode(ord $deprecated_aliases{$lookup_name}) - . "\" instead"); - $utf8 = $deprecated_aliases{$lookup_name}; - } +# if (exists $deprecated_aliases{$lookup_name}) { +# require warnings; +# warnings::warnif('deprecated', +# "Unicode character name \"$name\" is deprecated, use \"" +# . viacode(ord $deprecated_aliases{$lookup_name}) +# . "\" instead"); +# $utf8 = $deprecated_aliases{$lookup_name}; +# } # There are currently no entries in this hash, so don't waste time looking # for them. But the code is retained for the unlikely possibility that # some will be added in the future. |