Change 25398 by [EMAIL PROTECTED] on 2005/09/13 06:22:58
Subject: [EMAIL PROTECTED] vms/vms.c Perl_cando fix.
From: "John E. Malmberg" <[EMAIL PROTECTED]>
Date: Mon, 12 Sep 2005 23:56:36 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/vms/vms.c#139 edit
Differences ...
==== //depot/perl/vms/vms.c#139 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#138~25306~ Thu Aug 18 23:10:28 2005
+++ perl/vms/vms.c Mon Sep 12 23:22:58 2005
@@ -7692,7 +7692,16 @@
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
End of Patch.
