diff options
author | David Mitchell <davem@iabyn.com> | 2011-02-18 12:12:31 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2011-02-18 12:12:31 +0000 |
commit | 6bf8f18953312131104d1c89468e2e46e5a6cf47 (patch) | |
tree | 8ec986e92a6fb7c3fcf6d85e05c752bd136a9349 /pp_ctl.c | |
parent | 9274aefd575ecb452e8b3e33659780c198ca43ab (diff) | |
download | perl-6bf8f18953312131104d1c89468e2e46e5a6cf47.tar.gz |
pp_regcomp: don't unset RXf_TAINTED
Currently at the end of this function, the flag RXf_TAINTED is set or
unset based the value of PL_tainting.
Skip the unsetting part. At the moment this is a noop, but in some future
variant, it might clear the flag that has already been set in some other
way.
In other words, be conservative.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -244,8 +244,6 @@ PP(pp_regcomp) SvTAINTED_on((SV*)re); RX_EXTFLAGS(re) |= RXf_TAINTED; } - else - RX_EXTFLAGS(re) &= ~RXf_TAINTED; } #endif |