At 03:04 PM 8/30/2000 -0500, Jarkko wrote:
>Should I apply this? That is, if I understof correctly this is
>independent of the other patch you are talking about, and useful on
>its own?
Better to apply the following version, since RMS$_DNF is in fact 114762 and
it's better to remove the kludge than leave it as a noop. The comment in
the hack is wrong as it was never a C RTL problem but a problem with a
system that was configured incorrectly (the logical volume name assigned by
the mount command was overridden). The current patch leaves Perl unprotected from
that misconfiguration; my separate yet-to-be written patch should take care
of that. The hack that this current patch removes protected Perl from the
misconfiguration by saying that all directories always exist and are
accessible. I think we can do better.
--- vms/vms.c;-0 Tue Aug 29 16:52:44 2000
+++ vms/vms.c Wed Aug 30 15:15:58 2000
@@ -5656,7 +5656,7 @@
retsts = sys$check_access(&objtyp,&namdsc,&usrdsc,armlst);
if (retsts == SS$_NOPRIV || retsts == SS$_NOSUCHOBJECT ||
retsts == SS$_INVFILFOROP || retsts == RMS$_FNF || retsts == RMS$_SYN ||
- retsts == RMS$_DIR || retsts == RMS$_DEV) {
+ retsts == RMS$_DIR || retsts == RMS$_DEV || retsts == RMS$_DNF) {
set_vaxc_errno(retsts);
if (retsts == SS$_NOPRIV) set_errno(EACCES);
else if (retsts == SS$_INVFILFOROP) set_errno(EINVAL);
@@ -5679,12 +5679,6 @@
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 */
[end of patch]
_______________________________________________
Craig A. Berry
mailto:[EMAIL PROTECTED]
