Use CRTL getlogin and getlogin_r on VMS.

The CRTL has supplied getlogin since v7.0, so let's not use the
home-made one anymore.  Plus the CRTL als has a reentrant version,
so we'll use that under threads.

1 files changed, 0 insertions, 11 deletions

diff --git a/vms/vms.c b/vms/vms.c
index 627044e3e4..d415413e37 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -12160,17 +12160,6 @@ Perl_flex_lstat(pTHX_ const char *fspec, Stat_t *statbufp)
 /*}}}*/
 
 
-/*{{{char *my_getlogin()*/
-/* VMS cuserid == Unix getlogin, except calling sequence */
-char *
-my_getlogin(void)
-{
-    static char user[L_cuserid];
-    return cuserid(user);
-}
-/*}}}*/
-
-
 /*  rmscopy - copy a file using VMS RMS routines
  *
  *  Copies contents and attributes of spec_in to spec_out, except owner