Add also UTS (s390) to the non-IEEE float platforms.

[p5sagit/p5-mst-13.2.git] / t / op / sprintf.t

diff --git a/t/op/sprintf.t b/t/op/sprintf.t
index 515996a..f534812 100755 (executable)
--- a/t/op/sprintf.t
+++ b/t/op/sprintf.t
@@ -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