This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Eliminate RF_tainted flag from PL_reg_flags
authorDavid Mitchell <davem@iabyn.com>
Tue, 25 Dec 2012 20:51:50 +0000 (20:51 +0000)
committerDavid Mitchell <davem@iabyn.com>
Tue, 25 Dec 2012 20:51:50 +0000 (20:51 +0000)
commit272d35c920ff70f3a216eedf88a0152190a41867
treec235dc93e1e57a46d3681b79b247d82038a2fffd
parent39819bd9daad8177c22032658cbd5c354aa2b92f
Eliminate RF_tainted flag from PL_reg_flags

This global flag is cleared at the start of execution, and then set if
any locale-based nodes are executed. At the end of execution, the
RXf_TAINTED_SEEN flag on the regex is set/cleared based on RF_tainted.

We eliminate RF_tainted by simply directly setting RXf_TAINTED_SEEN
each time a taintable node is executed.

This is the final step before eliminating PL_reg_flags.
embed.fnc
pp_hot.c
proto.h
regexec.c
regexp.h