Integrate mainline

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

diff --git a/t/base/num.t b/t/base/num.t
index 22f96be..37ef9fa 100644 (file)
--- a/t/base/num.t
+++ b/t/base/num.t
@@ -151,5 +151,5 @@ print $a eq "-100000" ? "ok 43\n" : "not ok 43 # $a\n";
 $a = 123.456; "$a";
 print $a eq "123.456" ? "ok 44\n" : "not ok 44 # $a\n";
 
-$a = 1e30; "$a";
-print $a eq "1e+30" || $a eq "1e+030" ? "ok 45\n" : "not ok 45 $a\n";
+$a = 1e34; "$a";
+print $a eq "1e+34" || $a eq "1e+034" ? "ok 45\n" : "not ok 45 $a\n";