diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-02-10 09:02:21 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-02-10 09:02:21 +0000 |
| commit | f7a782ffe2f8f23ef6d2e927311c879ee73b140f (patch) | |
| tree | b4995aa5caf0e6c305bc66ea4f98e67a71274300 | |
| parent | e71197e2883063656534954aa6b56632e3c510c6 (diff) | |
| download | perl-f7a782ffe2f8f23ef6d2e927311c879ee73b140f.tar.gz | |
exp(999) isn't "infinity". Even exp(9999) can still be represented on
80 bit long doubles. exp(99999) can't.
p4raw-id: //depot/perl@33268
| -rw-r--r-- | lib/Math/Complex.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Math/Complex.pm b/lib/Math/Complex.pm index 437368180c..2258f08a80 100644 --- a/lib/Math/Complex.pm +++ b/lib/Math/Complex.pm @@ -21,7 +21,7 @@ BEGIN { local $!; # We do want an arithmetic overflow, Inf INF inf Infinity:. for my $t ( - 'exp(999)', + 'exp(99999)', # even 9999 isn't big enough for long doubles '9**9**9', 'inf', 'Inf', |