integrate cfgperl contents into mainline

p4raw-id: //depot/perl@4008

1 files changed, 4 insertions, 4 deletions

diff --git a/perl.c b/perl.c
index 46fd2c37c5..32b9e2b133 100644
--- a/perl.c
+++ b/perl.c
@@ -2472,10 +2472,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;