From: Charles Bailey <bailey@newman.upenn.edu>
Date: Wed, 24 May 2000 02:24:40 +0000 (+0000)
Subject: Ugly workaround for version-specific RTL error
X-Git-Tag: accepted/trunk/20130322.191538~32948^2~17
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=51d72eab6b91de4131dc68036f54a9d76d1639fe;p=platform%2Fupstream%2Fperl.git

Ugly workaround for version-specific RTL error

p4raw-id: //depot/vmsperl@6113
---

diff --git a/vms/vms.c b/vms/vms.c
index c50d828..f3448bb 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -4695,6 +4695,12 @@ cando_by_name(I32 bit, Uid_t effective, char *fname)
   if (retsts == SS$_ACCONFLICT) {
     return TRUE;
   }
+
+#if defined(__ALPHA) && defined(__VMS_VER) && __VMS_VER == 70100022 &&  defined(__DECC_VER) && __DECC_VER == 6009001
+  /* XXX Hideous kluge to accomodate error in specific version of RTL;
+     we hope it'll be buried soon */
+  if (retsts == 114762) return TRUE;
+#endif
   _ckvmssts(retsts);
 
   return FALSE;  /* Should never get here */