diff options
author | Karl Williamson <khw@cpan.org> | 2021-09-01 06:10:49 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2021-09-15 11:57:03 -0600 |
commit | 4c4f82a65adfe5bcb11e77b8a65ce1d7578e9694 (patch) | |
tree | 174f2f412d327fd1b281f61a9a4f6c66a3c33ef6 /lib | |
parent | 8486d44e200a7778b13fdf9c1adce11134c8213d (diff) | |
download | perl-4c4f82a65adfe5bcb11e77b8a65ce1d7578e9694.tar.gz |
mktables: Remove relics of removed legacy tables
These mentions of the tables removed in
b852e1da77b497e086508451bebff00541073fb1 were missed in that commit.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/unicore/mktables | 12 | ||||
-rw-r--r-- | lib/unicore/uni_keywords.pl | 2 |
2 files changed, 4 insertions, 10 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 187915bc8b..0141fa6700 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -1278,14 +1278,10 @@ my $MAP_PROXIED = 1; # The map table for the property isn't written out, # reconstruct this table my $INTERNAL_ONLY = 2; # The file for this table is written out, but it is # for Perl's internal use only -my $LEGACY_ONLY = 3; # Like $INTERNAL_ONLY, but not actually used by Perl. - # Is for backwards compatibility for applications that - # read the file directly, so it's format is - # unchangeable. -my $SUPPRESSED = 4; # The file for this table is not written out, and as a +my $SUPPRESSED = 3; # The file for this table is not written out, and as a # result, we don't bother to do many computations on # it. -my $PLACEHOLDER = 5; # Like $SUPPRESSED, but we go through all the +my $PLACEHOLDER = 4; # Like $SUPPRESSED, but we go through all the # computations anyway, as the values are needed for # things to work. This happens when we have Perl # extensions that depend on Unicode tables that @@ -9085,7 +9081,6 @@ sub trace { return main::trace(@_) if main::DEBUG && $to_trace } # 2) otherwise there should be no access to the # property map table from other parts of Perl. return if $map{$addr}->fate != $ORDINARY - && $map{$addr}->fate != $LEGACY_ONLY && ! ($map{$addr}->name =~ /^_/ && $map{$addr}->fate == $INTERNAL_ONLY); @@ -18179,8 +18174,7 @@ sub write_all_tables() { # We also create for Unicode::UCD a list of aliases for # the property. The list starts with the property name; - # then its full name. Legacy properties are not listed in - # Unicode::UCD. + # then its full name. my @property_list; my @standard_list; if ( $property->fate <= $MAP_PROXIED) { diff --git a/lib/unicore/uni_keywords.pl b/lib/unicore/uni_keywords.pl index 1cb7904a9f..03bd556097 100644 --- a/lib/unicore/uni_keywords.pl +++ b/lib/unicore/uni_keywords.pl @@ -1319,7 +1319,7 @@ # 43f6df50e4878f501b417e366b0ee097ae5ccb2d4ce942026bed3d62d78e7887 lib/unicore/extracted/DLineBreak.txt # a04502ebb36a45d83cbe48a7d8132ea8143edb7b3d34d0aa6afe4a9685049741 lib/unicore/extracted/DNumType.txt # 11075771b112e8e7ccf6ffa637c4c91eadc3ef3db0517b24e605df8fd3624239 lib/unicore/extracted/DNumValues.txt -# 24b7b7bda1a2ab4684ba53355d82ad227c1624b337b37c3b96f2e4b902eea1f2 lib/unicore/mktables +# 2b1f989c7326b58b7e66be2dfa016bddaeb877644ac49839301302a0e64b6a4b lib/unicore/mktables # c72bbdeda99714db1c8024d3311da4aef3c0db3b9b9f11455a7cfe10d5e9aba3 lib/unicore/version # 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl # 5f8520d3a17ade6317fc0c423f5091470924b1ef425bca0c41ce8e4a9f8460fe regen/mk_PL_charclass.pl |