Add also UTS (s390) to the non-IEEE float platforms.
Jarkko Hietaniemi [Sat, 23 Jun 2001 03:38:53 +0000 (03:38 +0000)]
p4raw-id: //depot/perl@10852

t/op/sprintf.t

index 515996a..f534812 100755 (executable)
@@ -31,7 +31,7 @@ $SIG{__WARN__} = sub {
 
 for ($i = 1; @tests; $i++) {
     ($template, $data, $result, $comment) = @{shift @tests};
-    if ($^O eq 'os390') {
+    if ($^O eq 'os390' || $^O eq 's390') { # non-IEEE (s390 is UTS)
         $data   =~ s/([eE])96$/${1}63/;      # smaller exponents
         $result =~ s/([eE]\+)102$/${1}69/;   #  "       "
         $data   =~ s/([eE])\-101$/${1}-56/;  # larger exponents