diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2003-12-29 05:51:19 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-29 10:49:29 +0000 |
| commit | e9df3e1af4eb330f01db244621822008bb7efa12 (patch) | |
| tree | 4a3998ac590aea80cf87c9f8b71a74fca0e9f1eb | |
| parent | 214243909ca260ed7609e535311c515513ac7689 (diff) | |
| download | perl-e9df3e1af4eb330f01db244621822008bb7efa12.tar.gz | |
Windows hasn't getuid/setuid and friends.
Therefore disable the code related to them in POSIX.xs.
Subject: [PATCH: ext/POSIX/POSIX.xs] Re: Smoke [5.8.2] 21979 FAIL(Xt) MSWin32 5.1 Service Pack 1 (x86/1 cpu)
From: "Marcus Holland-Moritz" <mhx-perl@gmx.net>
Message-ID: <03d401c3cdbf$05730ee0$d500a8c0@R2D2>
p4raw-id: //depot/perl@21993
| -rw-r--r-- | ext/POSIX/POSIX.xs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 3b3903828a..deefbd190a 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -1828,19 +1828,23 @@ SysRet setgid(gid) Gid_t gid CLEANUP: +#ifndef WIN32 if (RETVAL >= 0) { PL_gid = getgid(); PL_egid = getegid(); } +#endif SysRet setuid(uid) Uid_t uid CLEANUP: +#ifndef WIN32 if (RETVAL >= 0) { PL_uid = getuid(); PL_euid = geteuid(); } +#endif SysRetLong sysconf(name) |