From: Dan Sugalski <dan@sidhe.org>
Date: Wed, 2 May 2001 15:23:22 +0000 (-0400)
Subject: Re: [PATCH 5.6.1] Multiplicity and thread fixes for VMS
X-Git-Tag: accepted/trunk/20130322.191538~32078
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=a69a6dba78e6feba230971324444d5b3e5cc9bda;p=platform%2Fupstream%2Fperl.git

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
--- 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
--- 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)) {