This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
avoid (TAINTING_get && TAINT_get)
authorDavid Mitchell <davem@iabyn.com>
Fri, 30 Oct 2015 13:44:11 +0000 (13:44 +0000)
committerDavid Mitchell <davem@iabyn.com>
Tue, 10 Nov 2015 13:52:33 +0000 (13:52 +0000)
commitd48c660dfce02fc4e698f3b0589c77612ecf27a4
tree0123423531b3d781e9606e4f3cbc6d3530b970b6
parentfc9a9443cb9edf6f5607176e09aebe85d00da5fe
avoid (TAINTING_get && TAINT_get)

In various places we test for both (PL_tainting && PL_tainted).
Since if tainting isn't enabled PL_tainted should never get set, it's
more efficient to just test for (TAINT_get).

We ensure that PL_tainted doesn't actually get set when !PL_tainting
by changing some "setting" macros from PL_tainted = TRUE to
PL_tainted = PL_tainting.
intrpvar.h
perl.h
pp_ctl.c
pp_hot.c
regcomp.c
sv.h