diff options
| -rw-r--r-- | lib/Math/Complex.pm | 19 | ||||
| -rwxr-xr-x | lib/Math/Complex.t | 2 | ||||
| -rw-r--r-- | lib/Math/Trig.pm | 2 | ||||
| -rwxr-xr-x | lib/Math/Trig.t | 4 |
4 files changed, 17 insertions, 10 deletions
diff --git a/lib/Math/Complex.pm b/lib/Math/Complex.pm index 676c8e7507..f4241754ea 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_01; +$VERSION = 1.52; use Config; @@ -18,15 +18,22 @@ BEGIN { ( 4 => '1.70141183460469229e+38', 8 => '1.7976931348623157e+308', + # AFAICT the 10, 12, and 16-byte long doubles + # all have the same maximum. 10 => '1.1897314953572317650857593266280070162E+4932', - 12 => '1.1897314953572317650857593266280070162E+4932', # AFAICT. - # Tested on x86_64. What does Sparc give? + 12 => '1.1897314953572317650857593266280070162E+4932', 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; + my $nvsize = $Config{nvsize} || + ($Config{uselongdouble} && $Config{longdblsize}) || + $Config{doublesize}; + die "Math::Complex: Could not figure out nvsize\n" + unless defined $nvsize; + die "Math::Complex: Cannot not figure out max nv (nvsize = $nvsize)\n" + unless defined $DBL_MAX{$nvsize}; my $DBL_MAX = eval $DBL_MAX{$nvsize}; - die "Math::Complex: Could not figure out max nv\n" unless defined $DBL_MAX; + die "Math::Complex: Could not figure out max nv (nvsize = $nvsize)\n" + unless defined $DBL_MAX; my $BIGGER_THAN_THIS = 1e30; # Must find something bigger than this. if ($^O eq 'unicosmk') { $Inf = $DBL_MAX; diff --git a/lib/Math/Complex.t b/lib/Math/Complex.t index 5f930e5339..44f8f35112 100755 --- a/lib/Math/Complex.t +++ b/lib/Math/Complex.t @@ -13,7 +13,7 @@ BEGIN { } } -use Math::Complex 1.51; +use Math::Complex 1.52; use vars qw($VERSION); diff --git a/lib/Math/Trig.pm b/lib/Math/Trig.pm index 159b1bd566..3197d6f2dd 100644 --- a/lib/Math/Trig.pm +++ b/lib/Math/Trig.pm @@ -17,7 +17,7 @@ use vars qw($VERSION $PACKAGE @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); @ISA = qw(Exporter); -$VERSION = 1.15; +$VERSION = 1.16; my @angcnv = qw(rad2deg rad2grad deg2rad deg2grad diff --git a/lib/Math/Trig.t b/lib/Math/Trig.t index ed5661f520..618cdb71c4 100755 --- a/lib/Math/Trig.t +++ b/lib/Math/Trig.t @@ -28,8 +28,8 @@ BEGIN { plan(tests => 153); -use Math::Trig 1.15; -use Math::Trig 1.15 qw(:pi Inf); +use Math::Trig 1.16; +use Math::Trig 1.16 qw(:pi Inf); my $pip2 = pi / 2; |