summaryrefslogtreecommitdiff
path: root/vms/vms.c
diff options
context:
space:
mode:
authorDan Sugalski <dan@sidhe.org>2001-05-02 11:23:22 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2001-05-02 18:31:37 +0000
commita69a6dba78e6feba230971324444d5b3e5cc9bda (patch)
treebb462716eafb5ebe2aa7c397cc7b3b41c166ddf8 /vms/vms.c
parent82e239e7a1ea777ddd36194e1dcefc6427be98da (diff)
downloadperl-a69a6dba78e6feba230971324444d5b3e5cc9bda.tar.gz
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
Diffstat (limited to 'vms/vms.c')
-rw-r--r--vms/vms.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/vms/vms.c b/vms/vms.c
index 6606b5ca4b..136da276d3 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)) {