diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-25 10:25:00 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-25 10:25:00 +0000 |
| commit | 327c366704cde8b5db1271437c24407685d88228 (patch) | |
| tree | 6cf396353f712e79faea59cc39239aa5c44c5376 /pp_sys.c | |
| parent | 5ff3f7a4e03a6b103d9e628865398e498e9a7968 (diff) | |
| download | perl-327c366704cde8b5db1271437c24407685d88228.tar.gz | |
update template config.sh, add new config vars to win32 stuff
p4raw-id: //depot/perl@1890
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -207,9 +207,12 @@ static int dooneliner _((char *cmd, char *filename)); # define PERL_EFF_ACCESS_X_OK(p) (accessx((p), X_OK, ACC_SELF)) #endif -#if !defined(PERL_EFF_ACCESS_R_OK) && defined(HAS_ACCESS) +#if !defined(PERL_EFF_ACCESS_R_OK) && defined(HAS_ACCESS) \ + && (defined(HAS_SETREUID) || defined(HAS_SETRESUID) \ + || defined(HAS_SETREGID) || defined(HAS_SETRESGID)) /* The Hard Way. */ -static int emulate_eaccess (const char* path, int mode) { +STATIC int +emulate_eaccess (const char* path, int mode) { Uid_t ruid = getuid(); Uid_t euid = geteuid(); Gid_t rgid = getgid(); @@ -272,7 +275,8 @@ static int emulate_eaccess (const char* path, int mode) { #endif #if !defined(PERL_EFF_ACCESS_R_OK) -static int emulate_eaccess (const char* path, int mode) { +STATIC int +emulate_eaccess (const char* path, int mode) { croak("effective uid access is not implemented"); /*NOTREACHED*/ return -1; |