This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Windows hasn't getuid/setuid and friends.
authorMarcus Holland-Moritz <mhx-perl@gmx.net>
Mon, 29 Dec 2003 04:51:19 +0000 (05:51 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 29 Dec 2003 10:49:29 +0000 (10:49 +0000)
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

ext/POSIX/POSIX.xs

index 3b39038..deefbd1 100644 (file)
@@ -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)