From 93fcdc14f1eda867e1ae2157703905f51b86e75a Mon Sep 17 00:00:00 2001
From: Hans Mulder <hansmu@xs4all.nl>
Date: Mon, 13 Jul 1998 08:04:27 -0700
Subject: [PATCH] Thread tweak for VMS.C

	Message-Id: <3.0.5.32.19980713150427.00b2a540@ous.edu>

p4raw-id: //depot/perl@1480
---
 vms/vms.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/vms/vms.c b/vms/vms.c
index f41b1e1..46bad3b 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -3925,6 +3925,7 @@ is_null_device(name)
 I32
 cando(I32 bit, I32 effective, Stat_t *statbufp)
 {
+  dTHR;
   if (statbufp == &statcache) return cando_by_name(bit,effective,namecache);
   else {
     char fname[NAM$C_MAXRSS+1];
-- 
2.7.4