summaryrefslogtreecommitdiff
path: root/dist/Carp/t
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2016-10-21 09:05:25 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2016-10-21 20:13:41 -0400
commit0e25d864d83173c105cdabb68813b14c94bae966 (patch)
tree0d49d645711ed22d3bee53252a9a9ad987447b1f /dist/Carp/t
parent118e30669f30a468e87dba7af3669a3a29bd1f37 (diff)
downloadperl-0e25d864d83173c105cdabb68813b14c94bae966.tar.gz
vax-netbsd: do not tempt fp overflow, which will SIGFPE
The 3e100 seems to have no special meaning, except being in floating point.
Diffstat (limited to 'dist/Carp/t')
-rw-r--r--dist/Carp/t/arg_string.t2
1 files changed, 1 insertions, 1 deletions
diff --git a/dist/Carp/t/arg_string.t b/dist/Carp/t/arg_string.t
index dbd2e6e7f8..c94ec48ece 100644
--- a/dist/Carp/t/arg_string.t
+++ b/dist/Carp/t/arg_string.t
@@ -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"\)/;