Change 33282 by [EMAIL PROTECTED] on 2008/02/11 17:37:43
Upgrade to Math-Complex-1.51
Affected files ...
... //depot/perl/lib/Math/Complex.pm#41 edit
... //depot/perl/lib/Math/Complex.t#12 edit
... //depot/perl/lib/Math/Trig.pm#33 edit
... //depot/perl/lib/Math/Trig.t#15 edit
Differences ...
==== //depot/perl/lib/Math/Complex.pm#41 (text) ====
Index: perl/lib/Math/Complex.pm
--- perl/lib/Math/Complex.pm#40~33268~ 2008-02-10 01:02:21.000000000 -0800
+++ perl/lib/Math/Complex.pm 2008-02-11 09:37:43.000000000 -0800
@@ -9,27 +9,37 @@
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $Inf);
-$VERSION = 1.49;
+$VERSION = 1.51;
+
+use Config;
BEGIN {
- # For 64-bit doubles, anyway.
- my $IEEE_DBL_MAX = eval "1.7976931348623157e+308";
- my $BIGGER_THAN_THIS = 1e99; # Must find something bigger than this.
+ my %DBL_MAX =
+ (
+ 4 => '1.70141183460469229e+38',
+ 8 => '1.7976931348623157e+308',
+ 10 => '1.1897314953572317650857593266280070162E+4932',
+ 12 => '1.1897314953572317650857593266280070162E+4932', # AFAICT.
+ );
+ my $nvsize = $Config{nvsize} || ($Config{uselongdouble} &&
$Config{longdblsize}) || $Config{doublesize};
+ die "Math::Complex: Could not figure out nvsize\n" unless defined $nvsize;
+ my $DBL_MAX = eval $DBL_MAX{$nvsize};
+ die "Math::Complex: Could not figure out max nv\n" unless defined $DBL_MAX;
+ my $BIGGER_THAN_THIS = 1e30; # Must find something bigger than this.
if ($^O eq 'unicosmk') {
- $Inf = $IEEE_DBL_MAX;
+ $Inf = $DBL_MAX;
} else {
local $!;
- # We do want an arithmetic overflow, Inf INF inf Infinity:.
+ # We do want an arithmetic overflow, Inf INF inf Infinity.
for my $t (
- 'exp(99999)', # even 9999 isn't big enough for long doubles
- '9**9**9',
+ 'exp(99999)', # Enough even with 128-bit long doubles.
'inf',
'Inf',
'INF',
'infinity',
'Infinity',
'INFINITY',
- '1e999',
+ '1e99999',
) {
local $SIG{FPE} = { };
local $^W = 0;
@@ -39,8 +49,9 @@
last;
}
}
- $Inf = $IEEE_DBL_MAX unless defined $Inf; # Oh well, close enough.
- die "Could not get Infinity" unless $Inf > $BIGGER_THAN_THIS;
+ $Inf = $DBL_MAX unless defined $Inf; # Oh well, close enough.
+ die "Math::Complex: Could not get Infinity"
+ unless $Inf > $BIGGER_THAN_THIS;
}
# print "# On this machine, Inf = '$Inf'\n";
}
==== //depot/perl/lib/Math/Complex.t#12 (xtext) ====
Index: perl/lib/Math/Complex.t
--- perl/lib/Math/Complex.t#11~33253~ 2008-02-08 05:27:45.000000000 -0800
+++ perl/lib/Math/Complex.t 2008-02-11 09:37:43.000000000 -0800
@@ -13,7 +13,7 @@
}
}
-use Math::Complex 1.49;
+use Math::Complex 1.51;
use vars qw($VERSION);
==== //depot/perl/lib/Math/Trig.pm#33 (text) ====
Index: perl/lib/Math/Trig.pm
--- perl/lib/Math/Trig.pm#32~33253~ 2008-02-08 05:27:45.000000000 -0800
+++ perl/lib/Math/Trig.pm 2008-02-11 09:37:43.000000000 -0800
@@ -10,14 +10,14 @@
use 5.005;
use strict;
-use Math::Complex 1.49;
+use Math::Complex 1.51;
use Math::Complex qw(:trig :pi);
use vars qw($VERSION $PACKAGE @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ISA = qw(Exporter);
-$VERSION = 1.14;
+$VERSION = 1.15;
my @angcnv = qw(rad2deg rad2grad
deg2rad deg2grad
==== //depot/perl/lib/Math/Trig.t#15 (xtext) ====
Index: perl/lib/Math/Trig.t
--- perl/lib/Math/Trig.t#14~33253~ 2008-02-08 05:27:45.000000000 -0800
+++ perl/lib/Math/Trig.t 2008-02-11 09:37:43.000000000 -0800
@@ -28,8 +28,8 @@
plan(tests => 153);
-use Math::Trig 1.14;
-use Math::Trig 1.14 qw(:pi Inf);
+use Math::Trig 1.15;
+use Math::Trig 1.15 qw(:pi Inf);
my $pip2 = pi / 2;
End of Patch.
