This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Don't populate the _stc table
authorKarl Williamson <public@khwilliamson.com>
Sat, 21 Jan 2012 19:47:01 +0000 (12:47 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sat, 4 Feb 2012 23:29:28 +0000 (16:29 -0700)
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.

lib/unicore/mktables

index 0ee1b2f..2ee3cb8 100644 (file)
@@ -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)
         {