From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 1 Jul 2002 22:55:30 +0000 (-0500)
Subject: opendir() nit for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fac786e7f4d8e3e68d5aa264494f34319a9258b9;p=p5sagit%2Fp5-mst-13.2.git

opendir() nit for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <a05111b02b946cb14a2a8@[172.16.52.1]>

p4raw-id: //depot/perl@17396
---

diff --git a/vms/vms.c b/vms/vms.c
index f0e4121..27880dd 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -4721,7 +4721,7 @@ Perl_opendir(pTHX_ char *name)
      * accurately report whether it's a directory.
      */
     if (!cando_by_name(S_IRUSR,0,dir)) {
-      set_errno(EACCES); set_vaxc_errno(RMS$_PRV);
+      /* cando_by_name has already set errno */
       return NULL;
     }
     if (flex_stat(dir,&sb) == -1) return NULL;