diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-02-12 06:56:24 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-02-12 06:56:24 +0000 |
| commit | d3056722ea3de1a9444a4c16aaaa8564b579a9ed (patch) | |
| tree | 6910edfb245f922c481852012a997dc0fcd8df57 | |
| parent | 53e8571218130b49fbbc0d8c4b2cc4d3671c550a (diff) | |
| download | perl-d3056722ea3de1a9444a4c16aaaa8564b579a9ed.tar.gz | |
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
| -rw-r--r-- | lib/Math/Complex.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Math/Complex.pm b/lib/Math/Complex.pm index 73670f14dd..676c8e7507 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; |