Remove exports of dummy set[ug]id functions on Windows

These are surely not required by anything, and are only stub functions
anyway so can easily be provided locally by anything that really does need
them. Also hide the declarations other than when building the core itself
as per the fix for [perl #114516].

diff --git a/makedef.pl b/makedef.pl
index c1fd4c1..0923f40 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -786,8 +786,6 @@ try_symbols(qw(
 
 if ($ARGS{PLATFORM} eq 'win32') {
     try_symbols(qw(
-                                setgid
-                                setuid
                                 win32_free_childdir
                                 win32_free_childenv
                                 win32_get_childdir

diff --git a/win32/win32.h b/win32/win32.h
index 918b489..489fbf4 100644 (file)
--- a/win32/win32.h
+++ b/win32/win32.h
@@ -261,14 +261,13 @@ START_EXTERN_C
 
 /* For UNIX compatibility. */
 
-extern  int    setuid(uid_t uid);
-extern  int    setgid(gid_t gid);
-
 #ifdef PERL_CORE
 extern  uid_t  getuid(void);
 extern  gid_t  getgid(void);
 extern  uid_t  geteuid(void);
 extern  gid_t  getegid(void);
+extern  int    setuid(uid_t uid);
+extern  int    setgid(gid_t gid);
 extern  int    kill(int pid, int sig);
 extern  int    killpg(int pid, int sig);
 #ifndef USE_PERL_SBRK