From: Stas Bekman <stas@stason.org>
Date: Tue, 11 Mar 2003 17:09:02 +0000 (+1100)
Subject: [patch] PL_taint_warn falls between chairs in perl_clone()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7135f00b3e4ea2f1ab51cd8993790dca806e627b;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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);