Make the "uninit variable" warning to say "concat or string"

[p5sagit/p5-mst-13.2.git] / hints / dec_osf.sh

diff --git a/hints/dec_osf.sh b/hints/dec_osf.sh
index e5970ff..db7b869 100644 (file)
--- a/hints/dec_osf.sh
+++ b/hints/dec_osf.sh
@@ -65,10 +65,34 @@ cc=${cc:-cc}
        # reset
        _DEC_cc_style=
 case "`$cc -v 2>&1 | grep cc`" in
-*gcc*) ;; # pass
+*gcc*) _gcc_version=`$cc -v 2>&1 | grep "gcc version" | sed 's%^gcc version \([0-9]*\)\.\([0-9]*\) .*%\1 \2%'`
+       set $_gcc_version
+       if test "$1" -lt 2 -o \( "$1" -eq 2 -a "$2" -lt 95 \); then
+           cat >&4 <<EOF
+
+Your cc seems to be gcc and its version seems to be less than 2.95.
+This is not a good idea since old versions of gcc are known to produce
+buggy code when compiling Perl (and no doubt for other programs, too).
+
+Therefore, I strongly suggest upgrading your gcc.  (Why don't you
+use the vendor cc is also a good question.  It comes with the operating
+system and produces good code.)
+
+Note that as of gcc 2.95 (19990728) and Perl 5.6.0 (end of March 2000)
+if the said Perl is compiled with the said gcc the lib/sdbm test will 
+dump core.  As this doesn't happen with the vendor cc, this is
+most probably a lingering bug in gcc.  Therefore unless you have
+a better gcc you are still better off using the vendor cc.
+
+Cannot continue, aborting.
+
+EOF
+           exit 1
+       fi
+        ;;
 *)     # compile something small: taint.c is fine for this.
        # the main point is the '-v' flag of 'cc'.
-               case "`cc -v -I. -c taint.c -o /tmp/taint$$.o 2>&1`" in
+               case "`cc -v -I. -c taint.c -o taint$$.o 2>&1`" in
        */gemc_cc*)     # we have the new DEC GEM CC
                        _DEC_cc_style=new
                        ;;
@@ -77,7 +101,7 @@ case "`$cc -v 2>&1 | grep cc`" in
                        ;;
        esac
        # cleanup
-       rm -f /tmp/taint$$.o
+       rm -f taint$$.o
        ;;
 esac
 
@@ -204,7 +228,7 @@ esac
 
 # Fixed in V5.0A.
 case "`/usr/sbin/sizer -v`" in
-*5.0[A-Z]*|*[6-9].[0-9]*)
+*5.0[A-Z]*|*5.[1-9]*|*[6-9].[0-9]*)
        : ok
        ;;
 *)
@@ -215,9 +239,9 @@ esac
 
 # The off_t is already 8 bytes, so we do have largefileness.
 
+cat > UU/usethreads.cbu <<'EOCBU'
 # This script UU/usethreads.cbu will get 'called-back' by Configure 
 # after it has prompted the user for whether to use threads.
-cat > UU/usethreads.cbu <<'EOCBU'
 case "$usethreads" in
 $define|true|[yY]*)
        # Threads interfaces changed with V4.0.
@@ -243,6 +267,14 @@ $define|true|[yY]*)
 esac
 EOCBU
 
+cat > UU/uselongdouble.cbu <<'EOCBU'
+# This script UU/uselongdouble.cbu will get 'called-back' by Configure 
+# after it has prompted the user for whether to use long doubles.
+case "$uselongdouble" in
+$define|true|[yY]*) d_Gconvert='sprintf((b),"%.*Lg",(n),(x))' ;;
+esac
+EOCBU
+
 #
 # Unset temporary variables no more needed.
 #