From: Abe Timmerman <abe@ztreet.demon.nl>
Date: Sat, 5 Nov 2005 13:29:58 +0000 (+0200)
Subject: follow up on 25969 for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=03e3cfa350ab0751663457000c3c7743ae7d5de1;p=p5sagit%2Fp5-mst-13.2.git

follow up on 25969 for VMS
Message-Id: <200511051229.58297.abe@ztreet.demon.nl>

p4raw-id: //depot/perl@26026
---

diff --git a/vms/vms.c b/vms/vms.c
index 1c64f72..6d9aec3 100644
--- 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 =
diff --git a/vms/vmsish.h b/vms/vmsish.h
index a0ea93a..0953700 100644
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -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 *);