diff options
author | Karl Williamson <khw@cpan.org> | 2018-03-25 11:41:15 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-03-26 16:50:29 -0600 |
commit | e80a0113c4a8036dfb22aec44d0a9feb65d36fed (patch) | |
tree | 73662d2c4002a44d727b19e948d2e2dfe83ef0ba /perl.c | |
parent | 5174a8215ac5f41173effe13ac2a969be3ac40e0 (diff) | |
download | perl-e80a0113c4a8036dfb22aec44d0a9feb65d36fed.tar.gz |
Move case change invlists from interpreter to global
These are now constant through the life of the program, so don't need to
be duplicated at each new thread instantiation.
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 10 |
1 files changed, 0 insertions, 10 deletions
@@ -1199,22 +1199,12 @@ perl_destruct(pTHXx) PL_utf8_swash_ptrs[i] = NULL; } SvREFCNT_dec(PL_utf8_mark); - SvREFCNT_dec(PL_utf8_toupper); - SvREFCNT_dec(PL_utf8_totitle); - SvREFCNT_dec(PL_utf8_tolower); - SvREFCNT_dec(PL_utf8_tofold); - SvREFCNT_dec(PL_utf8_tosimplefold); SvREFCNT_dec(PL_utf8_foldclosures); SvREFCNT_dec(PL_InBitmap); #ifdef USE_LOCALE_CTYPE SvREFCNT_dec(PL_warn_locale); #endif PL_utf8_mark = NULL; - PL_utf8_toupper = NULL; - PL_utf8_totitle = NULL; - PL_utf8_tolower = NULL; - PL_utf8_tofold = NULL; - PL_utf8_tosimplefold = NULL; PL_utf8_foldclosures = NULL; PL_InBitmap = NULL; #ifdef USE_LOCALE_CTYPE |