Re: [PATCH 5.6.1] Multiplicity and thread fixes for VMS

Message-Id: <5.0.2.1.0.20010502152210.01f65550@24.8.96.48>

p4raw-id: //depot/perl@9966

diff --git a/perl.c b/perl.c
index 77e3cb7..0151338 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1304,11 +1304,7 @@ print \"  \\@INC:\\n    @INC\\n\";");
        (*xsinit)(aTHXo);       /* in case linked C routines want magical variables */
 #ifndef PERL_MICRO
 #if defined(VMS) || defined(WIN32) || defined(DJGPP) || defined(__CYGWIN__) || defined(EPOC)
-#  if defined(VMS)
-    init_os_extras(aTHXo);
-#  else
     init_os_extras();
-#  endif
 #endif
 #endif
 

diff --git a/vms/vms.c b/vms/vms.c
index 6606b5c..136da27 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -6727,8 +6727,9 @@ mod2fname(pTHX_ CV *cv)
 }
 
 void
-init_os_extras(pTHX)
+init_os_extras()
 {
+  dTHX;
   char* file = __FILE__;
   char temp_buff[512];
   if (my_trnlnm("DECC$DISABLE_TO_VMS_LOGNAME_TRANSLATION", temp_buff, 0)) {