Change 33293 by [EMAIL PROTECTED] on 2008/02/12 15:07:44
Upgrade to Math-Complex-1.52
Affected files ...
... //depot/perl/lib/Math/Complex.pm#43 edit
... //depot/perl/lib/Math/Complex.t#13 edit
... //depot/perl/lib/Math/Trig.pm#34 edit
... //depot/perl/lib/Math/Trig.t#16 edit
Differences ...
==== //depot/perl/lib/Math/Complex.pm#43 (text) ====
Index: perl/lib/Math/Complex.pm
--- perl/lib/Math/Complex.pm#42~33286~ 2008-02-11 22:56:24.000000000 -0800
+++ perl/lib/Math/Complex.pm 2008-02-12 07:07:44.000000000 -0800
@@ -9,7 +9,7 @@
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $Inf);
-$VERSION = 1.51_01;
+$VERSION = 1.52;
use Config;
@@ -18,15 +18,22 @@
(
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;
==== //depot/perl/lib/Math/Complex.t#13 (xtext) ====
Index: perl/lib/Math/Complex.t
--- perl/lib/Math/Complex.t#12~33282~ 2008-02-11 09:37:43.000000000 -0800
+++ perl/lib/Math/Complex.t 2008-02-12 07:07:44.000000000 -0800
@@ -13,7 +13,7 @@
}
}
-use Math::Complex 1.51;
+use Math::Complex 1.52;
use vars qw($VERSION);
==== //depot/perl/lib/Math/Trig.pm#34 (text) ====
Index: perl/lib/Math/Trig.pm
--- perl/lib/Math/Trig.pm#33~33282~ 2008-02-11 09:37:43.000000000 -0800
+++ perl/lib/Math/Trig.pm 2008-02-12 07:07:44.000000000 -0800
@@ -17,7 +17,7 @@
@ISA = qw(Exporter);
-$VERSION = 1.15;
+$VERSION = 1.16;
my @angcnv = qw(rad2deg rad2grad
deg2rad deg2grad
==== //depot/perl/lib/Math/Trig.t#16 (xtext) ====
Index: perl/lib/Math/Trig.t
--- perl/lib/Math/Trig.t#15~33282~ 2008-02-11 09:37:43.000000000 -0800
+++ perl/lib/Math/Trig.t 2008-02-12 07:07:44.000000000 -0800
@@ -28,8 +28,8 @@
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;
End of Patch.
