Lines Matching refs:PL_gid
889 sv_setiv(sv, (IV)PL_gid);
891 Perl_sv_setpvf(aTHX_ sv, "%"Gid_t_f, PL_gid);
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));
2355 PL_gid = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv);
2361 (void)setrgid((Gid_t)PL_gid);
2364 (void)setregid((Gid_t)PL_gid, (Gid_t)-1);
2367 (void)setresgid((Gid_t)PL_gid, (Gid_t)-1, (Gid_t) 1);
2369 if (PL_gid == PL_egid) /* special case $( = $) */
2370 (void)PerlProc_setgid(PL_gid);
2372 PL_gid = PerlProc_getgid();
2378 PL_gid = PerlProc_getgid();
2379 PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));
2424 if (PL_egid == PL_gid) /* special case $) = $( */
2434 PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));