From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 1 Sep 2003 06:32:01 +0000 (+0000)
Subject: Ultrix VAX is like VMS VAX in floating point.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eaf637cfe2d37262a1b3eba8b28b941eab0e25e7;p=p5sagit%2Fp5-mst-13.2.git

Ultrix VAX is like VMS VAX in floating point.

p4raw-id: //depot/perl@20979
---

diff --git a/t/op/sprintf.t b/t/op/sprintf.t
index 60771a3..c854588 100755
--- a/t/op/sprintf.t
+++ b/t/op/sprintf.t
@@ -43,6 +43,9 @@ if ($^O eq 'VMS') {
     $Is_VMS_VAX = $hw_model < 1024 ? 1 : 0;
 }
 
+# No %Config.
+my $Is_Ultrix_VAX = $^O eq 'ultrix' && `uname -m` =~ /^VAX$/;
+
 for ($i = 1; @tests; $i++) {
     ($template, $data, $result, $comment) = @{shift @tests};
     if ($^O eq 'os390' || $^O eq 's390') { # non-IEEE (s390 is UTS)
@@ -51,9 +54,10 @@ for ($i = 1; @tests; $i++) {
         $data   =~ s/([eE])\-101$/${1}-56/;  # larger exponents
         $result =~ s/([eE])\-102$/${1}-57/;  #  "       "
     }
-    if ($Is_VMS_VAX) { # VAX DEC C 5.3 at least since there is no 
-                       # ccflags =~ /float=ieee/ on VAX.
-                       # AXP is unaffected whether or not it's using ieee.
+    if ($Is_VMS_VAX || $Is_Ultrix_VAX) {
+	# VAX DEC C 5.3 at least since there is no 
+	# ccflags =~ /float=ieee/ on VAX.
+	# AXP is unaffected whether or not it's using ieee.
         $data   =~ s/([eE])96$/${1}26/;      # smaller exponents
         $result =~ s/([eE]\+)102$/${1}32/;   #  "       "
         $data   =~ s/([eE])\-101$/${1}-24/;  # larger exponents