From d8eceb896c98708a63dcc63f7bf202b095342359 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Tue, 10 Aug 1999 09:06:42 +0000 Subject: 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 --- perl.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl.c') diff --git a/perl.c b/perl.c index d81187989f..9de87551d9 100644 --- a/perl.c +++ b/perl.c @@ -2459,10 +2459,10 @@ S_find_beginning(pTHX) STATIC void S_init_ids(pTHX) { - PL_uid = (int)PerlProc_getuid(); - PL_euid = (int)PerlProc_geteuid(); - PL_gid = (int)PerlProc_getgid(); - PL_egid = (int)PerlProc_getegid(); + PL_uid = PerlProc_getuid(); + PL_euid = PerlProc_geteuid(); + PL_gid = PerlProc_getgid(); + PL_egid = PerlProc_getegid(); #ifdef VMS PL_uid |= PL_gid << 16; PL_euid |= PL_egid << 16; -- cgit v1.2.1