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 (file)
--- 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 */