Searched refs:PL_tainting (Results 1 - 21 of 21) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dcc_runtime.h25 if (PL_tainting && PL_tainted && (!SvGMAGICAL(left) || !SvSMAGICAL(left) || \
H A Dperl.c1005 PL_tainting = FALSE;
1377 if( !PL_tainting ) {
1379 PL_tainting = TRUE;
1385 PL_tainting = TRUE;
1558 !PL_tainting &&
1567 PL_tainting = TRUE;
1598 if( !PL_tainting ) {
1600 PL_tainting = TRUE;
2772 if (!PL_tainting)
2777 if (!PL_tainting)
[all...]
H A Dmg.c688 sv_setiv(sv, PL_tainting
741 if (PL_tainting) {
965 if (PL_tainting) {
2325 PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));
2352 PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));
2379 PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));
2434 PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));
H A Dsv.h845 #define SvTAINTED_on(sv) STMT_START{ if(PL_tainting){sv_taint(sv);} }STMT_END
846 #define SvTAINTED_off(sv) STMT_START{ if(PL_tainting){sv_untaint(sv);} }STMT_END
850 if (PL_tainting) { \
H A Dembedvar.h436 #define PL_tainting (PERL_GET_INTERP->Itainting) macro
758 #define PL_tainting (vTHX->Itainting) macro
1083 #define PL_Itainting PL_tainting
1496 #define tainting PL_tainting
H A Dperlapi.h593 #undef PL_tainting
594 #define PL_tainting (*Perl_Itainting_ptr(aTHX))
H A Dperl.h317 #define TAINT_ENV() if (PL_tainting) { taint_env(); }
318 #define TAINT_PROPER(s) if (PL_tainting) { taint_proper(Nullch, s); }
513 if (!PL_tainting && MallocCfg_ptr[MallocCfg_cfg_env_read]) \
H A Dpad.c1052 if (!PL_tainting) { /* Can't mix tainted and non-tainted temporaries. */
H A Dscope.c207 if (PL_tainting && PL_tainted &&
H A Dpp_sys.c390 if (PL_tainting) {
4083 if (PL_tainting) {
4211 if (PL_tainting) {
5562 if (PL_tainting) {
H A Ddoop.c677 if (PL_tainting && SvMAGICAL(sv))
H A Dhv.c527 if (PL_tainting)
H A Dpp_hot.c107 if (PL_tainting && PL_tainted && !SvTAINTED(left))
1175 PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));
H A Dutil.c1817 if (PL_tainting) {
1956 if (doexec && PL_tainting) {
H A Ddoio.c1627 if (PL_tainting) {
H A Dperlio.c1074 const char *s = (PL_tainting) ? Nullch : PerlEnv_getenv("PERLIO");
H A Dpp_ctl.c125 if (PL_tainting) {
H A Dregcomp.c2283 if (PL_tainting && PL_tainted)
H A Dop.c1793 if (o->op_flags & OPf_PARENS || PERLDB_NOOPT || PL_tainting) {
H A Dsv.c10939 PL_tainting = proto_perl->Itainting;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/
H A DUtil.xs88 # ifndef PL_tainting
89 # define PL_tainting tainting
371 if(PL_tainting && (SvTAINTED(num) || SvTAINTED(str)))

Completed in 542 milliseconds