This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
follow up on 25969 for VMS
authorAbe Timmerman <abe@ztreet.demon.nl>
Sat, 5 Nov 2005 13:29:58 +0000 (15:29 +0200)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 7 Nov 2005 08:14:59 +0000 (08:14 +0000)
Message-Id: <200511051229.58297.abe@ztreet.demon.nl>

p4raw-id: //depot/perl@26026

vms/vms.c
vms/vmsish.h

index 1c64f72..6d9aec3 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -9240,7 +9240,7 @@ is_null_device(name)
  * subset of the applicable information.
  */
 bool
-Perl_cando(pTHX_ Mode_t bit, Uid_t effective, const Stat_t *statbufp)
+Perl_cando(pTHX_ Mode_t bit, bool effective, const Stat_t *statbufp)
 {
   char fname_phdev[NAM$C_MAXRSS+1];
 #if __CRTL_VER >= 80200000 && !defined(__VAX)
@@ -9293,9 +9293,9 @@ Perl_cando(pTHX_ Mode_t bit, Uid_t effective, const Stat_t *statbufp)
 /*}}}*/
 
 
-/*{{{I32 cando_by_name(I32 bit, Uid_t effective, char *fname)*/
+/*{{{I32 cando_by_name(I32 bit, bool effective, char *fname)*/
 I32
-Perl_cando_by_name(pTHX_ I32 bit, Uid_t effective, const char *fname)
+Perl_cando_by_name(pTHX_ I32 bit, bool effective, const char *fname)
 {
   static char usrname[L_cuserid];
   static struct dsc$descriptor_s usrdsc =
index a0ea93a..0953700 100644 (file)
@@ -872,7 +872,7 @@ int     my_sigdelset   (sigset_t *, int);
 int     my_sigismember (sigset_t *, int);
 int     my_sigprocmask (int, sigset_t *, sigset_t *);
 #endif
-I32    Perl_cando_by_name (pTHX_ I32, Uid_t, const char *);
+I32    Perl_cando_by_name (pTHX_ I32, bool, const char *);
 int    Perl_flex_fstat (pTHX_ int, Stat_t *);
 int    Perl_flex_lstat (pTHX_ const char *, Stat_t *);
 int    Perl_flex_stat (pTHX_ const char *, Stat_t *);