From: Craig A. Berry <craigberry@mac.com>
Date: Wed, 30 Aug 2000 15:03:14 +0000 (-0500)
Subject: Re: not OK, 6919 on Alpha VMS V 7.1 w/ DECC 6.0-001
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=32dba258d2586abb52f8cb398035fb44e123642e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);