diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-01 05:33:14 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-01 05:33:14 +0000 |
| commit | d9aad7f7caf6c1d42b8e71a2a04bfca6447d2827 (patch) | |
| tree | dccc6636377483116741f280578188f0a4360f81 /vms/vms.c | |
| parent | 57b2e4523f4df782c055782388ac1aacff9603ef (diff) | |
| parent | d132b95fb004c5e3d94e297d3804c90cfef96fed (diff) | |
| download | perl-d9aad7f7caf6c1d42b8e71a2a04bfca6447d2827.tar.gz | |
integrate cfgperl contents into mainline
p4raw-id: //depot/perl@4606
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 { |