Lines Matching refs:PL_uid
883 sv_setiv(sv, (IV)PL_uid);
2296 PL_uid = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv);
2302 (void)setruid((Uid_t)PL_uid);
2305 (void)setreuid((Uid_t)PL_uid, (Uid_t)-1);
2308 (void)setresuid((Uid_t)PL_uid, (Uid_t)-1, (Uid_t)-1);
2310 if (PL_uid == PL_euid) { /* special case $< = $> */
2313 if (PL_uid != 0 && PerlProc_getuid() == 0)
2316 (void)PerlProc_setuid(PL_uid);
2318 PL_uid = PerlProc_getuid();
2324 PL_uid = PerlProc_getuid();
2325 PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));
2342 if (PL_euid == PL_uid) /* special case $> = $< */
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));