Searched refs:my_gid (Results 1 – 1 of 1) sorted by relevance
4292 const Gid_t my_gid = PerlProc_getgid(); in S_validate_suid() local4297 if (my_euid != my_uid || my_egid != my_gid) { /* (suidperl doesn't exist, in fact) */ in S_validate_suid()4305 (my_egid != my_gid && my_egid == statbuf.st_gid && statbuf.st_mode & S_ISGID) in S_validate_suid()4352 const Gid_t my_gid = PerlProc_getgid(); in S_init_ids() local4358 CHECK_MALLOC_TAINT(my_uid && (my_euid != my_uid || my_egid != my_gid)); in S_init_ids()4359 TAINTING_set( TAINTING_get | (my_uid && (my_euid != my_uid || my_egid != my_gid)) ); in S_init_ids()