Move init of 2 inversion lists to perl.c

These read-only globals can be initialized in perl.c, which allows us to
remove runtime checks that they are initialized.  This commit also takes
advantage of the fact that they are now always initialized to use them
as inversion lists, avoid swash creation.

1 files changed, 2 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index d5f274386e..e364f22dc0 100644
--- a/perl.c
+++ b/perl.c
@@ -324,6 +324,8 @@ perl_construct(pTHXx)
     PL_utf8_totitle = _new_invlist_C_array(Titlecase_Mapping_invlist);
     PL_utf8_tofold = _new_invlist_C_array(Case_Folding_invlist);
     PL_utf8_tosimplefold = _new_invlist_C_array(Simple_Case_Folding_invlist);
+    PL_utf8_perl_idstart = _new_invlist_C_array(_Perl_IDStart_invlist);
+    PL_utf8_perl_idcont = _new_invlist_C_array(_Perl_IDCont_invlist);
     PL_AboveLatin1 = _new_invlist_C_array(AboveLatin1_invlist);
     PL_Latin1 = _new_invlist_C_array(Latin1_invlist);
     PL_UpperLatin1 = _new_invlist_C_array(UpperLatin1_invlist);