diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-21 14:05:10 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-21 14:05:10 +0000 |
| commit | a52cb5f71fdb108349442902e9c003c02608aae2 (patch) | |
| tree | 35e8c2a03a56db5aba16d0609296b5ab5f7c406e /vms/vms.c | |
| parent | 4f6d0fe9dc5fc99027b6a9b7c8be0b6b4031a2e4 (diff) | |
| download | perl-a52cb5f71fdb108349442902e9c003c02608aae2.tar.gz | |
VMS patches from Peter Prymmer.
p4raw-id: //depot/cfgperl@4595
Diffstat (limited to 'vms/vms.c')
| -rw-r--r-- | vms/vms.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -4401,9 +4401,8 @@ is_null_device(name) /* Do this via $Check_Access on VMS, since the CRTL stat() returns only a * subset of the applicable information. */ -/*{{{I32 cando(I32 bit, Uid_t effective, struct stat *statbufp)*/ -I32 -Perl_cando(pTHX_ I32 bit, Uid_t effective, Stat_t *statbufp) +bool +Perl_cando(pTHX_ Mode_t bit, Uid_t effective, Stat_t *statbufp) { if (statbufp == &PL_statcache) return cando_by_name(bit,effective,namecache); else { |