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 /sv.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 'sv.c')
-rw-r--r-- | sv.c | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -15592,11 +15592,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, } PL_seen_deprecated_macro = hv_dup_inc(proto_perl->Iseen_deprecated_macro, param); PL_utf8_mark = sv_dup_inc(proto_perl->Iutf8_mark, param); - PL_utf8_toupper = sv_dup_inc(proto_perl->Iutf8_toupper, param); - PL_utf8_totitle = sv_dup_inc(proto_perl->Iutf8_totitle, param); - PL_utf8_tolower = sv_dup_inc(proto_perl->Iutf8_tolower, param); - PL_utf8_tofold = sv_dup_inc(proto_perl->Iutf8_tofold, param); - PL_utf8_tosimplefold = sv_dup_inc(proto_perl->Iutf8_tosimplefold, param); PL_utf8_charname_begin = sv_dup_inc(proto_perl->Iutf8_charname_begin, param); PL_utf8_charname_continue = sv_dup_inc(proto_perl->Iutf8_charname_continue, param); |