Disable long doubles from pre-5.0 Tru64s.

p4raw-id: //depot/perl@10458

diff --git a/README.tru64 b/README.tru64
index 4eb6a00..75f9293 100644 (file)
--- a/README.tru64
+++ b/README.tru64
@@ -42,6 +42,12 @@ example the regular expressions are not thread-safe.  The bugs are
 very hard to fix are and therefore the 5.005 threads model is still
 classified as an experimental feature.
 
+=head2 Long Doubles on Tru64
+
+You cannot Configure Perl to use long doubles unless you have at least
+Tru64 V5.0, the long double support simply wasn't functional before
+that.
+
 =head2 64-bit Perl on Tru64
 
 In Tru64 Perl's integers are automatically 64-bit wide, there is

diff --git a/hints/dec_osf.sh b/hints/dec_osf.sh
index 9275932..71bc05f 100644 (file)
--- a/hints/dec_osf.sh
+++ b/hints/dec_osf.sh
@@ -281,12 +281,27 @@ 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))' ;;
+$define|true|[yY]*)
+       case "`/usr/sbin/sizer -v`" in
+       *[1-4].0*)      cat >&4 <<EOF
+
+***
+*** Sorry, you cannot use long doubles in pre-V5.0 releases of Tru64.
+***
+
+Cannot continue, aborting.
+
+EOF
+               exit 1
+               ;;
+       esac
+       d_Gconvert='sprintf((b),"%.*Lg",(n),(x))'
+       ;;
 esac
 EOCBU
 
 case "`/usr/sbin/sizer -v`" in
-*4.0*) d_modfl=undef ;; # must wait till 5.0
+*[1-4].0*) d_modfl=undef ;; # must wait till 5.0
 esac
 
 #