This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Missed HAS_SETRESGID_PROTO. No serious harm done since
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 4 Jun 2001 02:19:58 +0000 (02:19 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 4 Jun 2001 02:19:58 +0000 (02:19 +0000)
often this prototype goes with HAS_SETRESUID_PROTO.

p4raw-id: //depot/perl@10420

Configure
Porting/Glossary
Porting/config.sh
Porting/config_H
config_h.SH
configure.com
perl.h
uconfig.h

index 4fc8f00..0c3bcd5 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Sat Jun  2 17:25:04 EET DST 2001 [metaconfig 3.0 PL70]
+# Generated on Mon Jun  4 06:11:38 EET DST 2001 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by perlbug@perl.org)
 
 cat >c1$$ <<EOF
@@ -545,6 +545,7 @@ socketlib=''
 d_socklen_t=''
 d_socks5_init=''
 d_sqrtl=''
+d_sresgproto=''
 d_sresuproto=''
 d_statblks=''
 d_statfs_f_flags=''
@@ -11882,6 +11883,11 @@ eval $inlibc
 set socks5_init d_socks5_init
 eval $inlibc
 
+: see if prototype for setresgid is available
+echo " "
+set d_sresgproto setresgid $i_unistd unistd.h
+eval $hasproto
+
 : see if prototype for setresuid is available
 echo " "
 set d_sresuproto setresuid $i_unistd unistd.h
@@ -16458,6 +16464,7 @@ d_socklen_t='$d_socklen_t'
 d_sockpair='$d_sockpair'
 d_socks5_init='$d_socks5_init'
 d_sqrtl='$d_sqrtl'
+d_sresgproto='$d_sresgproto'
 d_sresuproto='$d_sresuproto'
 d_statblks='$d_statblks'
 d_statfs_f_flags='$d_statfs_f_flags'
index d903a74..f643f8b 100644 (file)
@@ -1517,6 +1517,12 @@ d_sqrtl (d_sqrtl.U):
        This variable conditionally defines the HAS_SQRTL symbol, which
        indicates to the C program that the sqrtl() routine is available.
 
+d_sresgproto (d_sresgproto.U):
+       This variable conditionally defines the HAS_SETRESGID_PROTO symbol,
+       which indicates to the C program that the system provides
+       a prototype for the setresgid() function.  Otherwise, it is
+       up to the program to supply one.
+
 d_sresuproto (d_sresuproto.U):
        This variable conditionally defines the HAS_SETRESUID_PROTO symbol,
        which indicates to the C program that the system provides
index 69cb395..09da24a 100644 (file)
@@ -8,7 +8,7 @@
 
 # Package name      : perl5
 # Source directory  : .
-# Configuration time: Fri Jun  1 18:23:33 EET DST 2001
+# Configuration time: Mon Jun  4 06:13:47 EET DST 2001
 # Configured by     : jhi
 # Target system     : osf1 alpha.hut.fi v4.0 878 alpha 
 
@@ -63,7 +63,7 @@ ccsymbols='__alpha=1 __LANGUAGE_C__=1 __osf__=1 __unix__=1 _LONGLONG=1 _SYSTYPE_
 ccversion='V5.6-082'
 cf_by='jhi'
 cf_email='yourname@yourhost.yourplace.com'
-cf_time='Fri Jun  1 18:23:33 EET DST 2001'
+cf_time='Mon Jun  4 06:13:47 EET DST 2001'
 charsize='1'
 chgrp=''
 chmod=''
@@ -346,6 +346,7 @@ d_socklen_t='undef'
 d_sockpair='define'
 d_socks5_init='undef'
 d_sqrtl='define'
+d_sresgproto='undef'
 d_sresuproto='undef'
 d_statblks='define'
 d_statfs_f_flags='define'
@@ -663,7 +664,7 @@ patchlevel='7'
 path_sep=':'
 perl5='/u/vieraat/vieraat/jhi/Perl/bin/perl'
 perl=''
-perl_patchlevel='10358'
+perl_patchlevel='10418'
 perladmin='yourname@yourhost.yourplace.com'
 perllibs='-lm -liconv -lutil -lpthread -lexc'
 perlpath='/opt/perl/bin/perl'
@@ -858,7 +859,7 @@ PERL_SUBVERSION=1
 PERL_API_REVISION=5
 PERL_API_VERSION=5
 PERL_API_SUBVERSION=0
-PERL_PATCHLEVEL=10358
+PERL_PATCHLEVEL=10418
 PERL_CONFIG_SH=true
 # Variables propagated from previous config.sh file.
 pp_sys_cflags='ccflags="$ccflags -DNO_EFF_ONLY_OK"'
index da74ef0..85c4f3f 100644 (file)
@@ -17,7 +17,7 @@
 /*
  * Package name      : perl5
  * Source directory  : .
- * Configuration time: Fri Jun  1 18:23:33 EET DST 2001
+ * Configuration time: Mon Jun  4 06:13:47 EET DST 2001
  * Configured by     : jhi
  * Target system     : osf1 alpha.hut.fi v4.0 878 alpha 
  */
  *     in the <db.h> header file.  In older versions of DB, it was
  *     int, while in newer ones it is size_t.
  */
+/* DB_VERSION_MAJOR_CFG:
+ *     This symbol, if defined, defines the major version number of
+ *     Berkeley DB found in the <db.h> header when Perl was configured.
+ */
+/* DB_VERSION_MINOR_CFG:
+ *     This symbol, if defined, defines the minor version number of
+ *     Berkeley DB found in the <db.h> header when Perl was configured.
+ *     For DB version 1 this is always 0.
+ */
+/* DB_VERSION_PATCH_CFG:
+ *     This symbol, if defined, defines the patch version number of
+ *     Berkeley DB found in the <db.h> header when Perl was configured.
+ *     For DB version 1 this is always 0.
+ */
 #define DB_Hash_t      u_int32_t               /**/
 #define DB_Prefix_t    size_t          /**/
+#define DB_VERSION_MAJOR_CFG   1       /**/
+#define DB_VERSION_MINOR_CFG   0       /**/
+#define DB_VERSION_PATCH_CFG   0       /**/
 
 /* I_GRP:
  *     This symbol, if defined, indicates to the C program that it should
  */
 /*#define HAS_SOCKATMARK               / **/
 
+/* HAS_SETRESGID_PROTO:
+ *     This symbol, if defined, indicates that the system provides
+ *     a prototype for the setresgid() function.  Otherwise, it is up
+ *     to the program to supply one.  Good guesses are
+ *             extern int setresgid(uid_t ruid, uid_t euid, uid_t suid);
+ */
+/*#define      HAS_SETRESGID_PROTO     / **/
+
 /* HAS_SETRESUID_PROTO:
  *     This symbol, if defined, indicates that the system provides
  *     a prototype for the setresuid() function.  Otherwise, it is up
index 328ad4b..3f1009c 100644 (file)
@@ -3375,6 +3375,14 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un
  */
 #$d_sockatmark HAS_SOCKATMARK          /**/
 
+/* HAS_SETRESGID_PROTO:
+ *     This symbol, if defined, indicates that the system provides
+ *     a prototype for the setresgid() function.  Otherwise, it is up
+ *     to the program to supply one.  Good guesses are
+ *             extern int setresgid(uid_t ruid, uid_t euid, uid_t suid);
+ */
+#$d_sresgproto HAS_SETRESGID_PROTO     /**/
+
 /* HAS_SETRESUID_PROTO:
  *     This symbol, if defined, indicates that the system provides
  *     a prototype for the setresuid() function.  Otherwise, it is up
index c54e654..56c2000 100644 (file)
@@ -5219,6 +5219,7 @@ $ WC "d_socklen_t='" + d_socklen_t + "'"
 $ WC "d_sockpair='undef'"
 $ WC "d_socks5_init='undef'"
 $ WC "d_sqrtl='define'"
+$ WC "d_sresgproto='undef'"
 $ WC "d_sresuproto='undef'"
 $ WC "d_statblks='undef'"
 $ WC "d_statfs_f_flags='undef'"
diff --git a/perl.h b/perl.h
index 4656c3a..69579d8 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -2474,7 +2474,7 @@ I32 unlnk (char*);
 #ifndef HAS_SETRESUID_PROTO /* some versions of glibc */
 int setresuid(uid_t ruid, uid_t euid, uid_t suid);
 #endif
-#ifndef HAS_SETRESUID_PROTO /* some versions of glibc */
+#ifndef HAS_SETRESGID_PROTO /* some versions of glibc */
 int setresgid(gid_t rgid, gid_t egid, gid_t sgid);
 #endif
 
index fa0d8b0..9eff617 100644 (file)
--- a/uconfig.h
+++ b/uconfig.h
  */
 /*#define HAS_SOCKATMARK               / **/
 
+/* HAS_SETRESGID_PROTO:
+ *     This symbol, if defined, indicates that the system provides
+ *     a prototype for the setresgid() function.  Otherwise, it is up
+ *     to the program to supply one.  Good guesses are
+ *             extern int setresgid(uid_t ruid, uid_t euid, uid_t suid);
+ */
+/*#define      HAS_SETRESGID_PROTO     / **/
+
 /* HAS_SETRESUID_PROTO:
  *     This symbol, if defined, indicates that the system provides
  *     a prototype for the setresuid() function.  Otherwise, it is up