summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2017-12-23 23:15:37 -0700
committerKarl Williamson <khw@cpan.org>2017-12-24 17:20:45 -0700
commit034602eb0483306842c572ced4105398f6c38595 (patch)
tree4c92777d3695c39b3d181bb6d3b1393a43364556 /sv.c
parent07093db4de0c6dc92b6c401b33af53b861e41ea2 (diff)
downloadperl-034602eb0483306842c572ced4105398f6c38595.tar.gz
Add script_run regex feature
As explained in the docs, this helps detect spoofing attacks.
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/sv.c b/sv.c
index a79c033a3d..278bd6f4ea 100644
--- a/sv.c
+++ b/sv.c
@@ -15571,6 +15571,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
}
PL_GCB_invlist = sv_dup_inc(proto_perl->IGCB_invlist, param);
PL_SB_invlist = sv_dup_inc(proto_perl->ISB_invlist, param);
+ PL_SCX_invlist = sv_dup_inc(proto_perl->ISCX_invlist, param);
PL_WB_invlist = sv_dup_inc(proto_perl->IWB_invlist, param);
PL_seen_deprecated_macro = hv_dup_inc(proto_perl->Iseen_deprecated_macro, param);
PL_utf8_mark = sv_dup_inc(proto_perl->Iutf8_mark, param);