develooper Front page | perl.perl5.changes | Postings from March 2018

[perl.git] branch blead updated. v5.27.9-110-gc0221e1633

From:
Karl Williamson
Date:
March 6, 2018 00:21
Subject:
[perl.git] branch blead updated. v5.27.9-110-gc0221e1633
Message ID:
E1et0M9-0001wL-6A@git.dc.perl.space
In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/c0221e16334efbe9723722578949dc3916d669d4?hp=23a7ee81e1f64dbbde529a3010a311ed7e872fcf>

- Log -----------------------------------------------------------------
commit c0221e16334efbe9723722578949dc3916d669d4
Author: Karl Williamson <khw@cpan.org>
Date:   Mon Mar 5 17:17:38 2018 -0700

    Revert "charclasslists.h: script enums visible to CORE,EXT"
    
    This reverts commit fea79782ed31ac4faa71eb6193faff54b4bbe249.
    
    This bloats perl, and is not now necessary for 5.28.

-----------------------------------------------------------------------

Summary of changes:
 charclass_invlists.h | 14 +++++++-------
 regen/mk_invlists.pl |  3 +--
 2 files changed, 8 insertions(+), 9 deletions(-)

diff --git a/charclass_invlists.h b/charclass_invlists.h
index 60c64ef157..72f91e397a 100644
--- a/charclass_invlists.h
+++ b/charclass_invlists.h
@@ -20393,7 +20393,7 @@ static const UV _Perl_SCX_invlist[] = { /* for ASCII/Latin1 */
 
 #endif	/* defined(PERL_IN_PERL_C) */
 
-#if defined(PERL_CORE) || defined(PERL_EXT)
+#if defined(PERL_IN_REGEXEC_C)
 
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
@@ -22754,7 +22754,7 @@ static const SCX_enum _Perl_SCX_invmap[] = { /* for ASCII/Latin1 */
 	SCX_Unknown
 };
 
-#endif	/* defined(PERL_CORE) || defined(PERL_EXT) */
+#endif	/* defined(PERL_IN_REGEXEC_C) */
 
 #if defined(PERL_IN_PERL_C)
 
@@ -56784,7 +56784,7 @@ static const UV _Perl_SCX_invlist[] = { /* for EBCDIC 1047 */
 
 #endif	/* defined(PERL_IN_PERL_C) */
 
-#if defined(PERL_CORE) || defined(PERL_EXT)
+#if defined(PERL_IN_REGEXEC_C)
 
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
@@ -59171,7 +59171,7 @@ static const SCX_enum _Perl_SCX_invmap[] = { /* for EBCDIC 1047 */
 	SCX_Unknown
 };
 
-#endif	/* defined(PERL_CORE) || defined(PERL_EXT) */
+#endif	/* defined(PERL_IN_REGEXEC_C) */
 
 #if defined(PERL_IN_PERL_C)
 
@@ -93385,7 +93385,7 @@ static const UV _Perl_SCX_invlist[] = { /* for EBCDIC 037 */
 
 #endif	/* defined(PERL_IN_PERL_C) */
 
-#if defined(PERL_CORE) || defined(PERL_EXT)
+#if defined(PERL_IN_REGEXEC_C)
 
 /* Negative enum values indicate the need to use an auxiliary table
  * consisting of the list of enums this one expands to.  The absolute
@@ -95768,7 +95768,7 @@ static const SCX_enum _Perl_SCX_invmap[] = { /* for EBCDIC 037 */
 	SCX_Unknown
 };
 
-#endif	/* defined(PERL_CORE) || defined(PERL_EXT) */
+#endif	/* defined(PERL_IN_REGEXEC_C) */
 
 #if defined(PERL_IN_PERL_C)
 
@@ -109537,5 +109537,5 @@ static const U8 WB_table[24][24] = {
  * 5671c3de473b25e7ea47097e4906260624dfabe3e9b1739f490aecbc3d858459 lib/unicore/mktables
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
- * 4898ec84e2b81e8bf948dcdb1c015c14f258cc652337122719885a276ea46d7b regen/mk_invlists.pl
+ * ddcc2a146f5202e3fb5fa448eded5e53b49db82e436a742ca37b8cee15179148 regen/mk_invlists.pl
  * ex: set ro: */
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl
index 79ceba94a0..00b929eec7 100644
--- a/regen/mk_invlists.pl
+++ b/regen/mk_invlists.pl
@@ -59,8 +59,7 @@ my %exceptions_to_where_to_define =
                           _Perl_IDStart              => 'PERL_IN_UTF8_C',
                           Currency_Symbol            => 'PERL_IN_LOCALE_C',
                         );
-my %where_to_define_enums = ( _Perl_SCX => [ qw(PERL_CORE PERL_EXT) ],
-                            );
+my %where_to_define_enums = ();
 
 my %gcb_enums;
 my @gcb_short_enums;

-- 
Perl5 Master Repository



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About