Searched refs:PL_euid (Results 1 – 12 of 12) sorted by relevance
31 const UV euid = PL_euid; in Perl_taint_proper()40 const IV euid = PL_euid; in Perl_taint_proper()54 if (PL_euid != PL_uid) in Perl_taint_proper()
936 sv_setiv(sv, (IV)PL_euid); in Perl_magic_get()2357 if (PL_uid == PL_euid) { /* special case $< = $> */ in Perl_magic_set()2372 PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid)); in Perl_magic_set()2375 PL_euid = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv); in Perl_magic_set()2381 (void)seteuid((Uid_t)PL_euid); in Perl_magic_set()2384 (void)setreuid((Uid_t)-1, (Uid_t)PL_euid); in Perl_magic_set()2387 (void)setresuid((Uid_t)-1, (Uid_t)PL_euid, (Uid_t)-1); in Perl_magic_set()2389 if (PL_euid == PL_uid) /* special case $> = $< */ in Perl_magic_set()2390 PerlProc_setuid(PL_euid); in Perl_magic_set()2392 PL_euid = PerlProc_geteuid(); in Perl_magic_set()[all …]
4040 PL_euid != PL_uid && (PL_statbuf.st_mode & S_ISUID) &&4041 PL_euid == PL_statbuf.st_uid)4048 PL_euid) { /* oops, we're not the setuid root perl */4127 if (PL_statbuf.st_uid != PL_euid)4232 if (PL_euid != PL_uid || PL_egid != PL_gid) { /* (suidperl doesn't exist, in fact) */4235 if ((PL_euid != PL_uid && PL_euid == PL_statbuf.st_uid && PL_statbuf.st_mode & S_ISUID)4323 PL_euid = PerlProc_geteuid();4328 PL_euid |= PL_egid << 16;4331 CHECK_MALLOC_TAINT(PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));4332 PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));[all …]
1125 (PL_delaymagic & DM_EUID) ? PL_euid : (Uid_t)-1, in PP()1130 (PL_delaymagic & DM_EUID) ? PL_euid : (Uid_t)-1); in PP()1140 (void)seteuid(PL_euid); in PP()1145 if (PL_uid != PL_euid) in PP()1152 PL_euid = PerlProc_geteuid(); in PP()1186 PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid)); in PP()
260 #define PL_euid (PERL_GET_INTERP->Ieuid) macro585 #define PL_euid (vTHX->Ieuid) macro913 #define PL_Ieuid PL_euid
1841 if (PL_euid || PL_unsafe) { in Perl_apply()1941 if ((effective ? PL_euid : PL_uid) == 0) { /* root is special */ in Perl_cando()1950 if (statbufp->st_uid == (effective ? PL_euid : PL_uid) ) { in Perl_cando()
256 #undef PL_euid257 #define PL_euid (*Perl_Ieuid_ptr(aTHX))
3078 PL_euid : PL_uid) ) in PP()3599 if (PL_euid || PerlLIO_stat(tmps2, &PL_statbuf) < 0 || !S_ISDIR(PL_statbuf.st_mode)) in PP()
461 if (!dbg && !PL_tainting && PL_uid == PL_euid && PL_gid == PL_egid) {
833 update the perl variables PL_uid and PL_euid (resp. PL_gid
11260 PL_euid = proto_perl->Ieuid; in perl_clone_using()
1887 PL_euid = geteuid();