This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
118e306
)
vax-netbsd: do not tempt fp overflow, which will SIGFPE
author
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 21 Oct 2016 13:05:25 +0000
(09:05 -0400)
committer
Jarkko 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
patch
|
blob
|
blame
|
history
diff --git
a/dist/Carp/t/arg_string.t
b/dist/Carp/t/arg_string.t
index
dbd2e6e
..
c94ec48
100644
(file)
--- 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.5e
100), qr/main::lm\(-3\.5[eE]\+?10
0\)/;
+like lm(-3.5e
30), qr/main::lm\(-3\.5[eE]\+?3
0\)/;
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"\)/;