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 | 51d72eab6b91de4131dc68036f54a9d76d1639fe (patch) | |
| tree | 5223960ccbe1be044aaa16ae076cc0713677e383 /vms/vms.c | |
| parent | 8713643e844ed8f4c79356f71e306822511dbfeb (diff) | |
| download | perl-51d72eab6b91de4131dc68036f54a9d76d1639fe.tar.gz | |
Ugly workaround for version-specific RTL error
p4raw-id: //depot/vmsperl@6113
Diffstat (limited to 'vms/vms.c')
| -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 */ |