[patch] PL_taint_warn falls between chairs in perl_clone()

Message-ID: <3E6D7D7E.5000704@stason.org>

p4raw-id: //depot/perl@18905

diff --git a/sv.c b/sv.c
index a1bcc06..b4a1c5d 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -10939,6 +10939,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 
     /* internal state */
     PL_tainting                = proto_perl->Itainting;
+    PL_taint_warn       = proto_perl->Itaint_warn;
     PL_maxo            = proto_perl->Imaxo;
     if (proto_perl->Iop_mask)
        PL_op_mask      = SAVEPVN(proto_perl->Iop_mask, PL_maxo);