diff options
author | David Mitchell <davem@iabyn.com> | 2015-10-30 13:44:11 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2015-11-10 13:52:33 +0000 |
commit | d48c660dfce02fc4e698f3b0589c77612ecf27a4 (patch) | |
tree | 0123423531b3d781e9606e4f3cbc6d3530b970b6 /intrpvar.h | |
parent | fc9a9443cb9edf6f5607176e09aebe85d00da5fe (diff) | |
download | perl-d48c660dfce02fc4e698f3b0589c77612ecf27a4.tar.gz |
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.
Diffstat (limited to 'intrpvar.h')
-rw-r--r-- | intrpvar.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/intrpvar.h b/intrpvar.h index 1ab3351f46..7f9fa92123 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -75,7 +75,7 @@ PERLVAR(I, multideref_pc, UNOP_AUX_item *) PERLVAR(I, curpm, PMOP *) /* what to do \ interps in REs from */ PERLVAR(I, tainting, bool) /* doing taint checks */ -PERLVAR(I, tainted, bool) /* using variables controlled by $< */ +PERLVARI(I, tainted, bool, FALSE) /* using variables controlled by $< */ /* PL_delaymagic is currently used for two purposes: to assure simultaneous * updates in ($<,$>) = ..., and to assure atomic update in push/unshift |