This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Use already set variable
authorKarl Williamson <khw@cpan.org>
Mon, 18 Dec 2017 19:49:55 +0000 (12:49 -0700)
committerKarl Williamson <khw@cpan.org>
Mon, 18 Dec 2017 20:05:06 +0000 (13:05 -0700)
The value for this variable is already known; use that instead of
rederiving it.

charclass_invlists.h
lib/unicore/mktables
regcharclass.h

index a7f5056..4377deb 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
- * 10cb8c6f35fc78401bca052127e19f7906cece98f64e5340003314d4fe8f66d2 lib/unicore/mktables
+ * 4d296f9555c2df469eb9629c7cd53b3bf5d10331baa88087d8451966f1563865 lib/unicore/mktables
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
  * 6eea8721774d54b2da54d130ae4e568a486cc2f2572a5a55dec021e3c5d2294d regen/mk_invlists.pl
index 39540df..57c2e43 100644 (file)
@@ -14032,9 +14032,8 @@ END
         # This has to be in a separate loop from above, so as to wait until
         # the tables are stabilized before checking for equivalency.
         if (defined $pod_directory) {
-            my $sc = property_ref("Script");
             foreach my $table ($scx->tables) {
-                my $plain_sc_equiv = $sc->table($table->name);
+                my $plain_sc_equiv = $script->table($table->name);
                 if ($table->matches_identically_to($plain_sc_equiv)) {
                     $plain_sc_equiv->set_equivalent_to($table, Related => 1);
                 }
index e0c947c..3ac198c 100644 (file)
  * be0f129691d479aa38646e4ca0ec1ee576ae7f75b0300a5624a7fa862fa8abba lib/unicore/extracted/DLineBreak.txt
  * 92449d354d9f6b6f2f97a292ebb59f6344ffdeb83d120d7d23e569c43ba67cd5 lib/unicore/extracted/DNumType.txt
  * e3a319527153b0c6c0c549b40fc6f3a01a7a0dcd6620784391db25901df3b154 lib/unicore/extracted/DNumValues.txt
- * 10cb8c6f35fc78401bca052127e19f7906cece98f64e5340003314d4fe8f66d2 lib/unicore/mktables
+ * 4d296f9555c2df469eb9629c7cd53b3bf5d10331baa88087d8451966f1563865 lib/unicore/mktables
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
  * 9ea6338945a7d70e5ea4b31ac7856c0b521df96be002e94b4b3b7d31debbf3ab regen/regcharclass.pl