Perl 5.8.3 patches from the BS2000 port

[p5sagit/p5-mst-13.2.git] / t / base / num.t

diff --git a/t/base/num.t b/t/base/num.t
index ccabe07..f915281 100644 (file)
--- a/t/base/num.t
+++ b/t/base/num.t
@@ -163,7 +163,10 @@ $a = 123.456; "$a";
 print $a eq "123.456" ? "ok 44\n" : "not ok 44 # $a\n";
 
 $a = 1e34; "$a";
-print $a eq "1e+34" || $a eq "1e+034" ? "ok 45\n" : "not ok 45 $a\n";
+unless ($^O eq 'posix-bc')
+{ print $a eq "1e+34" || $a eq "1e+034" ? "ok 45\n" : "not ok 45 $a\n"; }
+else
+{ print "ok 45 # skipped on $^O\n"; }
 
 # see bug #15073