From: John E. Malmberg <wb8tyw@qsl.net>
Date: Mon, 12 Sep 2005 23:56:36 +0000 (-0400)
Subject: [patch@25388] vms/vms.c Perl_cando fix.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7579600832ee021c8e462ff004f49fb7da5fca41;p=p5sagit%2Fp5-mst-13.2.git

[patch@25388] vms/vms.c Perl_cando fix.
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-ID: <43264DF4.6090403@qsl.net>

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

diff --git a/vms/vms.c b/vms/vms.c
index 7d04fc9..f4a4ee8 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -7692,7 +7692,16 @@ int
 Perl_flex_fstat(pTHX_ int fd, Stat_t *statbufp)
 {
   if (!fstat(fd,(stat_t *) statbufp)) {
-    if (statbufp == (Stat_t *) &PL_statcache) *namecache == '\0';
+    if (statbufp == (Stat_t *) &PL_statcache) {
+    char *cptr;
+
+	/* Save name for cando by name in VMS format */
+	cptr = getname(fd, namecache, 1);
+
+	/* This should not happen, but just in case */
+	if (cptr == NULL)
+	   namecache[0] = '\0';
+    }
     statbufp->st_dev = encode_dev(aTHX_ statbufp->st_devnam);
 #   ifdef RTL_USES_UTC
 #   ifdef VMSISH_TIME