From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 23 Jun 2001 03:38:53 +0000 (+0000)
Subject: Add also UTS (s390) to the non-IEEE float platforms.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e95e26538ce1f7497c603375424dbe1af45d7f5e;p=p5sagit%2Fp5-mst-13.2.git

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

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

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