diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2016-10-21 09:05:25 -0400 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2016-10-21 20:13:41 -0400 |
commit | 0e25d864d83173c105cdabb68813b14c94bae966 (patch) | |
tree | 0d49d645711ed22d3bee53252a9a9ad987447b1f /dist/Carp/t | |
parent | 118e30669f30a468e87dba7af3669a3a29bd1f37 (diff) | |
download | perl-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.t | 2 |
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"\)/; |