1 files changed, 1 insertions, 1 deletions
diff --git a/vms/vms.c b/vms/vms.c
index 3831e3985e..91407e5670 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -3232,7 +3232,7 @@ struct passwd *my_getpwuid(Uid_t uid)
     else {
       uic.uic$l_uic= uid;
       if (!uic.uic$v_group)
-        uic.uic$v_group= getgid();
+        uic.uic$v_group= PerlProc_getgid();
       if (valid_uic(uic))
         status = sys$idtoasc(uic.uic$l_uic, &lname, &name_desc, 0, 0, 0);
       else status = SS$_IVIDENT;