Searched refs:PL_uid (Results 1 - 10 of 10) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dtaint.c29 UV uid = PL_uid;
38 IV uid = PL_uid;
51 if (PL_euid != PL_uid)
H A Dmg.c883 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
[all...]
H A Dperl.c3405 if (setreuid(PL_euid,PL_uid) < 0
3406 || PerlProc_getuid() != PL_euid || PerlProc_geteuid() != PL_uid)
3410 if (setreuid(PL_uid,PL_euid) < 0
3411 || PerlProc_getuid() != PL_uid || PerlProc_geteuid() != PL_euid)
3538 PL_euid != PL_uid && (PL_statbuf.st_mode & S_ISUID) &&
3642 else if (PL_uid) { /* oops, mustn't run as root */
3644 (void)seteuid((Uid_t)PL_uid);
3647 (void)setreuid((Uid_t)-1,(Uid_t)PL_uid);
3650 (void)setresuid((Uid_t)-1,(Uid_t)PL_uid,(Uid_t)-1);
3652 PerlProc_setuid((Uid_t)PL_uid);
[all...]
H A Dpp_hot.c1113 (void)setresuid((PL_delaymagic & DM_RUID) ? PL_uid : (Uid_t)-1,
1118 (void)setreuid((PL_delaymagic & DM_RUID) ? PL_uid : (Uid_t)-1,
1123 (void)setruid(PL_uid);
1134 if (PL_uid != PL_euid)
1136 (void)PerlProc_setuid(PL_uid);
1140 PL_uid = PerlProc_getuid();
1175 PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));
H A Dperlapi.h607 #undef PL_uid
608 #define PL_uid (*Perl_Iuid_ptr(aTHX))
H A Dembedvar.h443 #define PL_uid (PERL_GET_INTERP->Iuid) macro
765 #define PL_uid (vTHX->Iuid) macro
1090 #define PL_Iuid PL_uid
H A Ddoio.c1853 if ((effective ? PL_euid : PL_uid) == 0) { /* root is special */
1862 if (statbufp->st_uid == (effective ? PL_euid : PL_uid) ) {
H A Dpp_sys.c3070 PL_euid : PL_uid) )
H A Dsv.c11005 PL_uid = proto_perl->Iuid;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/
H A DPOSIX.xs1856 PL_uid = getuid();

Completed in 254 milliseconds