[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 (file)
--- 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