9 croak("No %s allowed while running setuid", s);
11 croak("No %s allowed while running setgid", s);
20 DEBUG_u(fprintf(stderr,"%s %d %d %d\n",s,tainted,uid, euid));
24 ug = " while running setuid";
26 ug = " while running setgid";
28 ug = " while running with -T switch";
45 svp = hv_fetch(GvHVn(envgv),"PATH",4,FALSE);
46 if (!svp || *svp == &sv_undef || mg_find(*svp, 't')) {
48 if (SvPRIVATE(*svp) & SVp_TAINTEDDIR)
49 taint_proper("Insecure directory in %s%s", "PATH");
51 taint_proper("Insecure %s%s", "PATH");
53 svp = hv_fetch(GvHVn(envgv),"IFS",3,FALSE);
54 if (svp && *svp != &sv_undef && mg_find(*svp, 't')) {
56 taint_proper("Insecure %s%s", "IFS");