Re: not OK, 6919 on Alpha VMS V 7.1 w/ DECC 6.0-001

Message-Id: <4.3.2.7.2.20000830144622.028fe7a8@exchi01>

p4raw-id: //depot/perl@6924

diff --git a/vms/vms.c b/vms/vms.c
index cda7572..dfa4387 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -5656,7 +5656,7 @@ cando_by_name(I32 bit, Uid_t effective, char *fname)
   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);