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.

2 files changed, 0 insertions, 16 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
diff --git a/vms/vmsish.h b/vms/vmsish.h
index b7aea852dc..d175b181be 100644
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -150,7 +150,6 @@
 #define my_gconvert(a,b,c,d)		Perl_my_gconvert(a,b,c,d)
 #define my_getenv(a,b)			Perl_my_getenv(aTHX_ a,b)
 #define my_getenv_len(a,b,c)		Perl_my_getenv_len(aTHX_ a,b,c)
-#define my_getlogin			Perl_my_getlogin
 #define my_getpwent()			Perl_my_getpwent(aTHX)
 #define my_getpwnam(a)			Perl_my_getpwnam(aTHX_ a)
 #define my_getpwuid(a)			Perl_my_getpwuid(aTHX_ a)
@@ -493,9 +492,6 @@ struct utimbuf {
 #define ENVgetenv_len(v,l) my_getenv_len(v,l,FALSE)
 
 
-/* Thin jacket around cuserid() to match Unix' calling sequence */
-#define getlogin my_getlogin
-
 /* Ditto for sys$hash_password() . . . */
 #define crypt(a,b)  Perl_my_crypt(aTHX_ a,b)
 
@@ -748,7 +744,6 @@ int	Perl_my_flush (pTHX_ FILE *);
 struct passwd *	Perl_my_getpwnam (pTHX_ const char *name);
 struct passwd *	Perl_my_getpwuid (pTHX_ Uid_t uid);
 void	Perl_my_endpwent (pTHX);
-char *	my_getlogin (void);
 
 #ifdef __cplusplus
 }