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";
46 svp = hv_fetch(GvHVn(envgv),"PATH",4,FALSE);
47 if (!svp || *svp == &sv_undef || (mg = mg_find(*svp, 't'))) {
49 if (mg && MgTAINTEDDIR(mg))
50 taint_proper("Insecure directory in %s%s", "PATH");
52 taint_proper("Insecure %s%s", "PATH");
54 svp = hv_fetch(GvHVn(envgv),"IFS",3,FALSE);
55 if (svp && *svp != &sv_undef && mg_find(*svp, 't')) {
57 taint_proper("Insecure %s%s", "IFS");