diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-01-21 12:47:01 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-02-04 16:29:28 -0700 |
| commit | b25fa77023ab79d5f43d2324c88057e13fa6f8af (patch) | |
| tree | 51839fcc90488d107977738c3ff495f96ae42727 /lib | |
| parent | 47f2dcf210d7f93a837788dd1a58274ba62b182b (diff) | |
| download | perl-b25fa77023ab79d5f43d2324c88057e13fa6f8af.tar.gz | |
mktables: Don't populate the _stc table
This table was used only by Unicode::UCD which no longer uses it, and it
turns out that the data in it are redundant. This is in preparation for
refactoring and removal of the table altogether.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 0ee1b2fd44..2ee3cb8e27 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -770,6 +770,7 @@ push @tables_that_may_be_empty, 'Script_Extensions=Katakana_Or_Hiragana' if $v_version ge v6.0.0; push @tables_that_may_be_empty, 'Grapheme_Cluster_Break=Prepend' if $v_version ge v6.1.0; +push @tables_that_may_be_empty, '_stc'; # The lists below are hashes, so the key is the item in the list, and the # value is the reason why it is in the list. This makes generation of @@ -10798,11 +10799,6 @@ END { $file->insert_adjusted_lines("$fields[0]; _slc; $value"); } - if ($fields[2] ne $fields[0] - && (my $value = $tc->value_of(hex $fields[0])) ne $CODE_POINT) - { - $file->insert_adjusted_lines("$fields[0]; _stc; $value"); - } if ($fields[3] ne $fields[0] && (my $value = $uc->value_of(hex $fields[0])) ne $CODE_POINT) { |