This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
vax-netbsd: do not tempt fp overflow, which will SIGFPE
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 21 Oct 2016 13:05:25 +0000 (09:05 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 22 Oct 2016 00:13:41 +0000 (20:13 -0400)
The 3e100 seems to have no special meaning, except being in floating point.

dist/Carp/t/arg_string.t

index dbd2e6e..c94ec48 100644 (file)
@@ -22,7 +22,7 @@ like lm(3), qr/main::lm\(3\)/;
 like lm(substr("3\x{2603}", 0, 1)), qr/main::lm\(3\)/;
 like lm(-3), qr/main::lm\(-3\)/;
 like lm(-3.5), qr/main::lm\(-3\.5\)/;
-like lm(-3.5e100), qr/main::lm\(-3\.5[eE]\+?100\)/;
+like lm(-3.5e30), qr/main::lm\(-3\.5[eE]\+?30\)/;
 like lm(""), qr/main::lm\(""\)/;
 like lm("foo"), qr/main::lm\("foo"\)/;
 like lm("a\$b\@c\\d\"e"), qr/main::lm\("a\\\$b\\\@c\\\\d\\\"e"\)/;