Searched refs:PerlProc_getuid (Results 1 – 11 of 11) sorted by relevance
46 const Uid_t uid = PerlProc_getuid(); in Perl_taint_proper()66 if (PerlProc_getuid() != PerlProc_geteuid()) in Perl_taint_proper()
266 (PerlProc_getuid() == PerlProc_geteuid() && in perl_construct()2460 PerlProc_getuid() == PerlProc_geteuid() && in S_parse_body()4290 const Uid_t my_uid = PerlProc_getuid(); in S_validate_suid()4350 const Uid_t my_uid = PerlProc_getuid(); in S_init_ids()4387 Uid_t uid = PerlProc_getuid(); in Perl_doing_taint()4426 if (PerlProc_getuid() != PerlProc_geteuid()) in S_forbid_setid()5093 (PerlProc_getuid() != PerlProc_geteuid() || in S_mayberelocate()
595 # define getuid PerlProc_getuid
1244 sv_setuid(sv, PerlProc_getuid()); in Perl_magic_get()3373 if (new_uid != 0 && PerlProc_getuid() == 0) in Perl_magic_set()3399 if (new_euid == PerlProc_getuid()) /* special case $> = $< */ in Perl_magic_set()
1034 # define PerlProc_getuid() \ macro1102 # define PerlProc_getuid() getuid() macro
2981 if ((effective ? PerlProc_geteuid() : PerlProc_getuid()) == 0) { /* root is special */2991 if (statbufp->st_uid == (effective ? PerlProc_geteuid() : PerlProc_getuid()) ) {
2725 Uid_t tmp_uid = PerlProc_getuid(); in S_aassign_uid()2761 tmp_uid = PerlProc_getuid(); in S_aassign_uid()
3596 if (PL_statcache.st_uid == PerlProc_getuid()) in PP()
344 PerlProc_getuid() == PerlProc_geteuid() && in PerlIO_debug()
307 PerlProc_getuid # Z added by devel/scanprov
841 retrieve them (e.g., C<PerlProc_getuid()>), and not to assign to