diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-10 09:06:42 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-10 09:06:42 +0000 |
| commit | d8eceb896c98708a63dcc63f7bf202b095342359 (patch) | |
| tree | 9701b08cb03f36f95bdc3bc268845cf99e36dd6f /pp_hot.c | |
| parent | 1ff81528d9b685c68d4fe91564f636f46d635496 (diff) | |
| download | perl-d8eceb896c98708a63dcc63f7bf202b095342359.tar.gz | |
Gratuitous uid and gid casts to I32s and ints removed.
There are still problem spots in printfing such ids:
width (%d vs %ld) and signedness %d vs %u.
p4raw-id: //depot/cfgperl@3945
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -767,8 +767,8 @@ PP(pp_aassign) } # endif /* HAS_SETREUID */ #endif /* HAS_SETRESUID */ - PL_uid = (int)PerlProc_getuid(); - PL_euid = (int)PerlProc_geteuid(); + PL_uid = PerlProc_getuid(); + PL_euid = PerlProc_geteuid(); } if (PL_delaymagic & DM_GID) { #ifdef HAS_SETRESGID @@ -796,8 +796,8 @@ PP(pp_aassign) } # endif /* HAS_SETREGID */ #endif /* HAS_SETRESGID */ - PL_gid = (int)PerlProc_getgid(); - PL_egid = (int)PerlProc_getegid(); + PL_gid = PerlProc_getgid(); + PL_egid = PerlProc_getegid(); } PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid)); } |