diff options
author | Stefan Seifert <nine@detonation.org> | 2019-10-30 16:23:01 +0100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2019-12-12 11:35:20 +1100 |
commit | e6c7056ba6f1dca6d04e6d36515a0ffc3a5ec02a (patch) | |
tree | 76f720186b490fb6d156db4048883af91258e4af /sv.c | |
parent | 91e49152f27fa00e0cb6d477928f8098a9367c05 (diff) | |
download | perl-e6c7056ba6f1dca6d04e6d36515a0ffc3a5ec02a.tar.gz |
Move PL_check to the interp vars to fix threading issues
Fixes issue #14816
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -15574,6 +15574,9 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, PL_globalstash = hv_dup(proto_perl->Iglobalstash, param); PL_curstname = sv_dup_inc(proto_perl->Icurstname, param); + /* Add PL_check here */ + Copy(proto_perl->Icheck, PL_check, PL_maxo, Perl_check_t); + PL_beginav = av_dup_inc(proto_perl->Ibeginav, param); PL_beginav_save = av_dup_inc(proto_perl->Ibeginav_save, param); PL_checkav_save = av_dup_inc(proto_perl->Icheckav_save, param); |