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

1 files changed, 4 insertions, 4 deletions

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;