From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Mon, 29 Dec 2003 04:51:19 +0000 (+0100)
Subject: Windows hasn't getuid/setuid and friends.
X-Git-Tag: accepted/trunk/20130322.191538~22541
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=e9df3e1af4eb330f01db244621822008bb7efa12;p=platform%2Fupstream%2Fperl.git

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
---

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 3b39038..deefbd1 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)