Searched refs:PL_gid (Results 1 - 9 of 9) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dtaint.c53 else if (PL_egid != PL_gid)
H A Dmg.c889 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);
[all...]
H A Dperl.c3730 if (PL_euid != PL_uid || PL_egid != PL_gid) { /* (suidperl doesn't exist, in fact) */
3735 (PL_egid != PL_gid && PL_egid == PL_statbuf.st_gid && PL_statbuf.st_mode & S_ISGID)
3819 PL_gid = PerlProc_getgid();
3822 PL_uid |= PL_gid << 16;
3826 CHECK_MALLOC_TAINT(PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));
3827 PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));
3881 if (PL_egid != PL_gid)
H A Dpp_hot.c1145 (void)setresgid((PL_delaymagic & DM_RGID) ? PL_gid : (Gid_t)-1,
1150 (void)setregid((PL_delaymagic & DM_RGID) ? PL_gid : (Gid_t)-1,
1155 (void)setrgid(PL_gid);
1166 if (PL_gid != PL_egid)
1168 (void)PerlProc_setgid(PL_gid);
1172 PL_gid = PerlProc_getgid();
1175 PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));
H A Dperlapi.h273 #undef PL_gid
274 #define PL_gid (*Perl_Igid_ptr(aTHX))
H A Dembedvar.h276 #define PL_gid (PERL_GET_INTERP->Igid) macro
598 #define PL_gid (vTHX->Igid) macro
923 #define PL_Igid PL_gid
H A Ddoio.c1884 if (testgid == (effective ? PL_egid : PL_gid))
H A Dsv.c11007 PL_gid = proto_perl->Igid;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/
H A DPOSIX.xs1845 PL_gid = getgid();

Completed in 1034 milliseconds