Change 33268 by [EMAIL PROTECTED] on 2008/02/10 09:02:21
exp(999) isn't "infinity". Even exp(9999) can still be represented on
80 bit long doubles. exp(99999) can't.
Affected files ...
... //depot/perl/lib/Math/Complex.pm#40 edit
Differences ...
==== //depot/perl/lib/Math/Complex.pm#40 (text) ====
Index: perl/lib/Math/Complex.pm
--- perl/lib/Math/Complex.pm#39~33253~ 2008-02-08 05:27:45.000000000 -0800
+++ perl/lib/Math/Complex.pm 2008-02-10 01:02:21.000000000 -0800
@@ -21,7 +21,7 @@
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',
End of Patch.
