diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2000-05-24 02:24:40 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2000-05-24 02:24:40 +0000 |
| commit | c96ca056adb8ee1b7c281b66aaf65217524181b8 (patch) | |
| tree | 5223960ccbe1be044aaa16ae076cc0713677e383 /vms | |
| parent | 7265e7c739c25018048948d009fa03caf0dd9801 (diff) | |
| download | perl-c96ca056adb8ee1b7c281b66aaf65217524181b8.tar.gz | |
Ugly workaround for version-specific RTL error
p4raw-id: //depot/vmsperl@6113
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vms.c | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -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 */ |