This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Use global for Script_Extensions object
authorKarl Williamson <khw@cpan.org>
Thu, 30 Nov 2017 19:38:34 +0000 (12:38 -0700)
committerKarl Williamson <khw@cpan.org>
Thu, 30 Nov 2017 20:56:28 +0000 (13:56 -0700)
This is used in several places, so make its scope global to the program.

charclass_invlists.h
lib/unicore/mktables
regcharclass.h

index 521822e..498eb82 100644 (file)
@@ -97454,7 +97454,7 @@ static const U8 WB_table[24][24] = {
  * be0f129691d479aa38646e4ca0ec1ee576ae7f75b0300a5624a7fa862fa8abba lib/unicore/extracted/DLineBreak.txt
  * 92449d354d9f6b6f2f97a292ebb59f6344ffdeb83d120d7d23e569c43ba67cd5 lib/unicore/extracted/DNumType.txt
  * e3a319527153b0c6c0c549b40fc6f3a01a7a0dcd6620784391db25901df3b154 lib/unicore/extracted/DNumValues.txt
- * 2e0d29b4afd2c42e478a610c0a54f4e9c7ed41a640870ffc418fda7dfe2454ed lib/unicore/mktables
+ * 553015b5e08378a6019ead48b2f375e242771e6569db26048fc59e050fcd54ad lib/unicore/mktables
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
  * 48418cbf454eb9ef35c73468ed5ef72ad8603490eabe74181ce4fae42ec72579 regen/mk_invlists.pl
index 7b7428a..cb943fc 100644 (file)
@@ -1453,6 +1453,7 @@ my $Assigned;   # All assigned characters in this Unicode release
 my $DI;         # Default_Ignorable_Code_Point property
 my $NChar;      # Noncharacter_Code_Point property
 my $script;
+my $scx;        # Script_Extensions property
 
 # Are there conflicting names because of beginning with 'In_', or 'Is_'
 my $has_In_conflicts = 0;
@@ -13160,7 +13161,7 @@ sub setup_script_extensions {
     # The Script_Extensions property starts out with a clone of the Script
     # property.
 
-    my $scx = property_ref("Script_Extensions");
+    $scx = property_ref("Script_Extensions");
     $scx = Property->new("scx", Full_Name => "Script_Extensions")
                                                             if ! defined $scx;
     $scx->_set_format($STRING_WHITE_SPACE_LIST);
@@ -13755,7 +13756,6 @@ END
     # data is retained in the map table for reference, but the spurious match
     # tables are deleted.
 
-    my $scx = property_ref("Script_Extensions");
     if (defined $scx) {
         foreach my $table ($scx->tables) {
             next unless $table->name =~ /\s/;   # All the new and only the new
@@ -15389,7 +15389,6 @@ sub add_perl_synonyms() {
 
     # If the version of Unicode includes the Script Extensions (preferably),
     # or Script property, add its tables
-    my $scx = property_ref("Script_Extensions");
     if (defined $scx) {
         push @tables, $scx->tables;
     }
index fa1a170..edc59b5 100644 (file)
  * be0f129691d479aa38646e4ca0ec1ee576ae7f75b0300a5624a7fa862fa8abba lib/unicore/extracted/DLineBreak.txt
  * 92449d354d9f6b6f2f97a292ebb59f6344ffdeb83d120d7d23e569c43ba67cd5 lib/unicore/extracted/DNumType.txt
  * e3a319527153b0c6c0c549b40fc6f3a01a7a0dcd6620784391db25901df3b154 lib/unicore/extracted/DNumValues.txt
- * 2e0d29b4afd2c42e478a610c0a54f4e9c7ed41a640870ffc418fda7dfe2454ed lib/unicore/mktables
+ * 553015b5e08378a6019ead48b2f375e242771e6569db26048fc59e050fcd54ad lib/unicore/mktables
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
  * 9ea6338945a7d70e5ea4b31ac7856c0b521df96be002e94b4b3b7d31debbf3ab regen/regcharclass.pl