This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_regcomp: don't unset RXf_TAINTED
authorDavid Mitchell <davem@iabyn.com>
Fri, 18 Feb 2011 12:12:31 +0000 (12:12 +0000)
committerDavid Mitchell <davem@iabyn.com>
Fri, 18 Feb 2011 12:12:31 +0000 (12:12 +0000)
commit6bf8f18953312131104d1c89468e2e46e5a6cf47
tree8ec986e92a6fb7c3fcf6d85e05c752bd136a9349
parent9274aefd575ecb452e8b3e33659780c198ca43ab
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.
pp_ctl.c