From: Steve Peters <steve@fisharerojo.org>
Date: Tue, 12 Feb 2008 15:07:44 +0000 (+0000)
Subject: Upgrade to Math-Complex-1.52
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=57dd0abb430439017d09d117e859732e618ac61a;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to Math-Complex-1.52

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

diff --git a/lib/Math/Complex.pm b/lib/Math/Complex.pm
index 676c8e7..f424175 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 5f930e5..44f8f35 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 159b1bd..3197d6f 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 ed5661f..618cdb7 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;