Change 20979 by [EMAIL PROTECTED] on 2003/09/01 06:32:01
Ultrix VAX is like VMS VAX in floating point.
Affected files ...
... //depot/perl/t/op/sprintf.t#41 edit
Differences ...
==== //depot/perl/t/op/sprintf.t#41 (xtext) ====
Index: perl/t/op/sprintf.t
--- perl/t/op/sprintf.t#40~19931~ Wed Jul 2 04:34:49 2003
+++ perl/t/op/sprintf.t Sun Aug 31 23:32:01 2003
@@ -43,6 +43,9 @@
$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 @@
$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
End of Patch.
