From 0db501320bec0c310a0f7677d3a5aacd631e878e Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Sat, 3 Nov 2012 08:11:44 -0500 Subject: Remove thread context from Perl_vmssetuserlnm. This routine by its very nature applies to the whole process so there is no way it can make use of a thread context, and it may need to be called from places where there is no thread context, such as very early in start-up. It's not documented, was never intended to be part of the API, was only made global so it could be called from doio.c, and no uses of it turn up in a CPAN grep, so the change should be safe. --- vms/vmsish.h | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'vms/vmsish.h') diff --git a/vms/vmsish.h b/vms/vmsish.h index 55244603fe..310016d0c8 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -214,6 +214,7 @@ #define vms_realpath(a,b,c) Perl_vms_realpath(aTHX_ a,b,c) #define vmssetenv(a,b,c) Perl_vmssetenv(aTHX_ a,b,c) #define vmstrnenv(a,b,c,d,e) Perl_vmstrnenv(a,b,c,d,e) +#define vmssetuserlnm(a,b) Perl_vmssetuserlnm(a,b) /* Delete if at all possible, changing protections if necessary. */ #define unlink(a) kill_file(a) @@ -735,7 +736,7 @@ bool Perl_vms_do_aexec (pTHX_ SV *, SV **, SV **); int Perl_vms_case_tolerant(void); char * Perl_my_getenv_len (pTHX_ const char *, unsigned long *, bool); int Perl_vmssetenv (pTHX_ const char *, const char *, struct dsc$descriptor_s **); -void Perl_vmssetuserlnm(pTHX_ const char *name, const char *eqv); +void Perl_vmssetuserlnm(const char *name, const char *eqv); char * Perl_my_crypt (pTHX_ const char *, const char *); Pid_t Perl_my_waitpid (pTHX_ Pid_t, int *, int); char * my_gconvert (double, int, int, char *); -- cgit v1.2.1