exp(999) isn't "infinity". Even exp(9999) can still be represented on
authorNicholas Clark <nick@ccl4.org>
Sun, 10 Feb 2008 09:02:21 +0000 (09:02 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 10 Feb 2008 09:02:21 +0000 (09:02 +0000)
80 bit long doubles. exp(99999) can't.

p4raw-id: //depot/perl@33268

lib/Math/Complex.pm

index 4373681..2258f08 100644 (file)
@@ -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',