diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2005-09-12 19:56:36 -0400 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-09-13 06:22:58 +0000 |
| commit | 7579600832ee021c8e462ff004f49fb7da5fca41 (patch) | |
| tree | e12a45e117aafbdfa23d04cd390023ee6d37134f /vms | |
| parent | bfce84ec9fb7d74c41a80b7823d3e3c5a1e43f7a (diff) | |
| download | perl-7579600832ee021c8e462ff004f49fb7da5fca41.tar.gz | |
[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
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vms.c | 11 |
1 files changed, 10 insertions, 1 deletions
@@ -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 |