diff options
| author | Karl Williamson <khw@cpan.org> | 2021-09-15 07:08:05 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2021-09-15 08:48:04 -0600 |
| commit | 85079456b5557013056979af9b22ee55a0138d91 (patch) | |
| tree | 5012fb67e9d20a677e04d6e643c38a97cecb3885 /lib | |
| parent | d07120aec26ea13ce1f049d137997f6c146356f4 (diff) | |
| download | perl-85079456b5557013056979af9b22ee55a0138d91.tar.gz | |
mktables: Rename variable, and hoist calc from loop
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 7 | ||||
| -rw-r--r-- | lib/unicore/uni_keywords.pl | 2 |
2 files changed, 5 insertions, 4 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 5732c616df..10dba57f27 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -15121,13 +15121,14 @@ END # created equivalence class whose name is a combination of the property # and the old class name, leaving unchanged everything that doesn't match # the non-UCD property. - my $pictographic_emoji = property_ref('ExtPict'); - if (defined $pictographic_emoji) { + my $ep = property_ref('ExtPict'); + $ep = $ep->table('Y') if defined $ep; + if (defined $ep) { foreach my $base_property (property_ref('GCB'), property_ref('WB')) { my $property = property_ref('_Perl_' . $base_property->name); - foreach my $range ($pictographic_emoji->table('Y')->ranges) { + foreach my $range ($ep->ranges) { foreach my $i ($range->start .. $range->end) { my $current = $property->value_of($i); $current = $property->table($current)->short_name; diff --git a/lib/unicore/uni_keywords.pl b/lib/unicore/uni_keywords.pl index 498d6be481..4a7cad4dfa 100644 --- a/lib/unicore/uni_keywords.pl +++ b/lib/unicore/uni_keywords.pl @@ -1295,7 +1295,7 @@ # baba9dfc133e3cb770a89aaf0973b1341fa61c2da6c176baf6428898b3b568d8 lib/unicore/extracted/DLineBreak.txt # 6d4a8c945dd7db83ed617cbb7d937de7f4ecf016ff22970d846e996a7c9a2a5d lib/unicore/extracted/DNumType.txt # 5b7c14380d5cceeaffcfbc18db1ed936391d2af2d51f5a41f1a17b692c77e59b lib/unicore/extracted/DNumValues.txt -# 497b589915a64625b274215e8b8ca02b7051ecbd4dd85a488807e76a41bc707d lib/unicore/mktables +# 97c6ea021b02944a62d84f6e8b18562f4e426622c37f6636538b50bd00b62080 lib/unicore/mktables # 50b85a67451145545a65cea370dab8d3444fbfe07e9c34cef560c5b7da9d3eef lib/unicore/version # 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl # 5f8520d3a17ade6317fc0c423f5091470924b1ef425bca0c41ce8e4a9f8460fe regen/mk_PL_charclass.pl |