d_uname was broken (probably since _53), reported by

From: Alan Burlison <Alan.Burlison@uk.sun.com>
To: p5p <perl5-porters@perl.org>, Gurusamy Sarathy <gsar@umich.edu>,
        cpan-testers@perl.org
Subject: Not OK: perl 5.00556 on sun4-solaris 2.6
Date: Mon, 08 Mar 1999 13:22:31 +0000
Message-ID: <36E3CF17.EA1FEDAA@uk.sun.com>

and

From: lvirden@cas.org (Larry W. Virden)
To: perlbug@perl.com
Subject: configure not correctly identifying uname posix compatibility
Date: Mon, 8 Mar 1999 06:36:16 -0500 (EST)
Message-Id: <199903081136.GAA23682@cas.org>

p4raw-id: //depot/cfgperl@3099

diff --git a/Configure b/Configure
index 669cc73..8224931 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 Thu Mar  4 10:08:40 EET 1999 [metaconfig 3.0 PL70]
+# Generated on Tue Mar  9 14:37:57 EET 1999 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by perlbug@perl.com)
 
 cat >/tmp/c1$$ <<EOF
@@ -8059,13 +8059,13 @@ eval $inlibc
 
 : see how we will look up host name
 echo " "
-if false; then
-       : dummy stub to allow use of elif
-elif set gethostname val -f d_gethname; eval $csym; $val; then
+call=''
+if set gethostname val -f d_gethname; eval $csym; $val; then
        echo 'gethostname() found.' >&4
        d_gethname="$define"
        call=gethostname
-elif set uname val -f d_uname; eval $csym; $val; then
+fi
+if set uname val -f d_uname; eval $csym; $val; then
        if ./xenix; then
                $cat <<'EOM'
 uname() was found, but you're running xenix, and older versions of xenix
@@ -8085,7 +8085,9 @@ EOM
        else
                echo 'uname() found.' >&4
                d_uname="$define"
-               call=uname
+               case "$call" in
+               '') call=uname ;;
+               esac
        fi
 fi
 case "$d_gethname" in

diff --git a/config_h.SH b/config_h.SH
index ba2a558..06b7c8c 100644 (file)
--- a/config_h.SH
+++ b/config_h.SH
@@ -1092,22 +1092,6 @@ sed <<!GROK!THIS! >config.h -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un-
 #define MEM_ALIGNBYTES $alignbytes
 #endif
 
-/* INTSIZE:
- *     This symbol contains the value of sizeof(int) so that the C
- *     preprocessor can make decisions based on it.
- */
-/* LONGSIZE:
- *     This symbol contains the value of sizeof(long) so that the C
- *     preprocessor can make decisions based on it.
- */
-/* SHORTSIZE:
- *     This symbol contains the value of sizeof(short) so that the C
- *     preprocessor can make decisions based on it.
- */
-#define INTSIZE $intsize               /**/
-#define LONGSIZE $longsize             /**/
-#define SHORTSIZE $shortsize           /**/
-
 /* BYTEORDER:
  *     This symbol holds the hexadecimal constant defined in byteorder,
  *     i.e. 0x1234 or 0x4321, etc...