Searched refs:TAINT_get (Results 1 – 19 of 19) sorted by relevance
52 s, TAINT_get, (UV)uid, (UV)euid)); in Perl_taint_proper()56 s, TAINT_get, (IV)uid, (IV)euid)); in Perl_taint_proper()61 if (TAINT_get) { in Perl_taint_proper()122 const bool was_tainted = TAINT_get; in Perl_taint_env()182 const bool was_tainted = TAINT_get; in Perl_taint_env()
487 & (do_taint ? !TAINT_get : 1))) \509 & (do_taint ? !TAINT_get : 1) \532 & (do_taint ? !TAINT_get : 1))) \
327 assert(TAINTING_get || !TAINT_get); in PP()328 if (UNLIKELY(TAINT_get) && !SvTAINTED(val)) in PP()376 assert(TAINTING_get || !TAINT_get); in PP()377 if (UNLIKELY(TAINT_get) && !SvTAINTED(val)) in PP()409 assert(TAINTING_get || !TAINT_get); in PP()410 if (UNLIKELY(TAINT_get) && !SvTAINTED(right)) in PP()3746 (TAINT_get && (pm->op_pmflags & PMf_RETAINT))); in PP()5370 if (UNLIKELY(TAINT_get)) in PP()
1890 assert (!TAINT_get); in perl_parse()2459 if (TAINT_get && in S_parse_body()2470 assert (!TAINT_get); in S_parse_body()2525 assert (!TAINT_get); in S_parse_body()
175 const int oldtainted = TAINT_get; in S_invlist_replace_list_destroys_src()
1723 assert(TAINTING_get || !TAINT_get); \1724 if (UNLIKELY(TAINT_get)) \
142 const bool was_tainted = TAINT_get; in PP()168 assert(TAINTING_get || !TAINT_get); in PP()169 if (TAINT_get) { in PP()247 if (UNLIKELY(TAINT_get)) in PP()
1617 assert(TAINTING_get || !TAINT_get); in Perl_re_op_compile()1618 if (TAINT_get) in Perl_re_op_compile()15278 if (TAINT_get) { in S_parse_uniprop_string()15459 if (TAINT_get || SvTRUE(error)) { in S_parse_uniprop_string()15466 if (TAINT_get) { in S_parse_uniprop_string()15840 if (TAINT_get) { in S_parse_uniprop_string()
1107 bool was = TAINT_get; in Perl_leave_scope()
949 # define TAINT_get 0 macro1028 # define TAINT_get (cBOOL(UNLIKELY(PL_tainted))) /* Is something tainted? */ macro
2640 if (TAINT_get) { TAINT_PROPER(what); } \ in Perl_apply()
2598 if (TAINT_get) in Perl_magic_settaint()
692 const bool save_taint = TAINT_get; in Perl_hv_common()
7626 assert(TAINTING_get || !TAINT_get);7627 if (UNLIKELY(TAINT_get) && !SvTAINTED(val))
5721 const bool save_taint = TAINT_get;
4829 if (TAINT_get)
12237 const int oldtainted = TAINT_get; in Perl_reg_numbered_buff_fetch_flags()
13133 const bool save_taint = TAINT_get; in Perl_ck_index()
33 TAINT_get # Z added by devel/scanprov