Re: [perl #24248] taint propagation regression,

         tests fail to spot this
Message-Id: <20031105230241.D13585@biff.bort.ca>

p4raw-id: //depot/perl@21674

1 files changed, 1 insertions, 0 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 37b0a20e66..8ce813c85c 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -59,6 +59,7 @@ PP(pp_regcreset)
     /* XXXX Should store the old value to allow for tie/overload - and
        restore in regcomp, where marked with XXXX. */
     PL_reginterp_cnt = 0;
+    TAINT_NOT;
     return NORMAL;
 }