From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 10 Feb 2008 09:02:21 +0000 (+0000)
Subject: exp(999) isn't "infinity". Even exp(9999) can still be represented on
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f7a782ffe2f8f23ef6d2e927311c879ee73b140f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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',