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

diff --git a/lib/Math/Complex.pm b/lib/Math/Complex.pm
index 4373681..2258f08 100644 (file)
--- 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',