[asperl] added AS patch#2

p4raw-id: //depot/asperl@443

1 files changed, 1 insertions, 1 deletions

diff --git a/vms/vms.c b/vms/vms.c
index b55681984a..598572c5c2 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -3224,7 +3224,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;