summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2018-03-25 11:41:15 -0600
committerKarl Williamson <khw@cpan.org>2018-03-26 16:50:29 -0600
commite80a0113c4a8036dfb22aec44d0a9feb65d36fed (patch)
tree73662d2c4002a44d727b19e948d2e2dfe83ef0ba /sv.c
parent5174a8215ac5f41173effe13ac2a969be3ac40e0 (diff)
downloadperl-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.c5
1 files changed, 0 insertions, 5 deletions
diff --git a/sv.c b/sv.c
index 4f03736330..fb89ac0f2d 100644
--- a/sv.c
+++ b/sv.c
@@ -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);