From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 12 Feb 2008 06:56:24 +0000 (+0000)
Subject: Teach Math::Complex the maximum NV for a 16 byte float. (At least, a
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d3056722ea3de1a9444a4c16aaaa8564b579a9ed;p=p5sagit%2Fp5-mst-13.2.git

Teach Math::Complex the maximum NV for a 16 byte float. (At least, a
16 byte float on x86_64. This feels fragile.)

p4raw-id: //depot/perl@33286
---

diff --git a/lib/Math/Complex.pm b/lib/Math/Complex.pm
index 73670f1..676c8e7 100644
--- a/lib/Math/Complex.pm
+++ b/lib/Math/Complex.pm
@@ -9,7 +9,7 @@ package Math::Complex;
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $Inf);
 
-$VERSION = 1.51;
+$VERSION = 1.51_01;
 
 use Config;
 
@@ -20,6 +20,8 @@ BEGIN {
 	  8  => '1.7976931348623157e+308',
 	 10 => '1.1897314953572317650857593266280070162E+4932',
 	 12 => '1.1897314953572317650857593266280070162E+4932',  # AFAICT.
+	 # Tested on x86_64. What does Sparc give?
+	 16 => '1.1897314953572317650857593266280070162E+4932',
 	);
     my $nvsize = $Config{nvsize} || ($Config{uselongdouble} && $Config{longdblsize}) || $Config{doublesize};
     die "Math::Complex: Could not figure out nvsize\n" unless defined $nvsize;