Change 33253 by [EMAIL PROTECTED] on 2008/02/08 13:27:45
Update to Math::Complex 1.49
Affected files ...
... //depot/perl/lib/Math/Complex.pm#39 edit
... //depot/perl/lib/Math/Complex.t#11 edit
... //depot/perl/lib/Math/Trig.pm#32 edit
... //depot/perl/lib/Math/Trig.t#14 edit
Differences ...
==== //depot/perl/lib/Math/Complex.pm#39 (text) ====
Index: perl/lib/Math/Complex.pm
--- perl/lib/Math/Complex.pm#38~33222~ 2008-02-03 05:10:39.000000000 -0800
+++ perl/lib/Math/Complex.pm 2008-02-08 05:27:45.000000000 -0800
@@ -9,11 +9,12 @@
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $Inf);
-$VERSION = 1.48;
+$VERSION = 1.49;
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.
if ($^O eq 'unicosmk') {
$Inf = $IEEE_DBL_MAX;
} else {
@@ -22,26 +23,26 @@
for my $t (
'exp(999)',
'9**9**9',
- '1e999',
'inf',
'Inf',
'INF',
'infinity',
'Infinity',
'INFINITY',
+ '1e999',
) {
local $SIG{FPE} = { };
local $^W = 0;
my $i = eval "$t+1.0";
- if ($i =~ /inf/i && $i > 1e+99) {
+ if (defined $i && $i > $BIGGER_THAN_THIS) {
$Inf = $i;
last;
}
}
$Inf = $IEEE_DBL_MAX unless defined $Inf; # Oh well, close enough.
- die "Could not get Infinity" unless $Inf > 1e99;
+ die "Could not get Infinity" unless $Inf > $BIGGER_THAN_THIS;
}
- print "# On this machine, Inf = '$Inf'\n";
+ # print "# On this machine, Inf = '$Inf'\n";
}
use strict;
==== //depot/perl/lib/Math/Complex.t#11 (xtext) ====
Index: perl/lib/Math/Complex.t
--- perl/lib/Math/Complex.t#10~33222~ 2008-02-03 05:10:39.000000000 -0800
+++ perl/lib/Math/Complex.t 2008-02-08 05:27:45.000000000 -0800
@@ -13,7 +13,7 @@
}
}
-use Math::Complex 1.48;
+use Math::Complex 1.49;
use vars qw($VERSION);
==== //depot/perl/lib/Math/Trig.pm#32 (text) ====
Index: perl/lib/Math/Trig.pm
--- perl/lib/Math/Trig.pm#31~33222~ 2008-02-03 05:10:39.000000000 -0800
+++ perl/lib/Math/Trig.pm 2008-02-08 05:27:45.000000000 -0800
@@ -10,14 +10,14 @@
use 5.005;
use strict;
-use Math::Complex 1.48;
+use Math::Complex 1.49;
use Math::Complex qw(:trig :pi);
use vars qw($VERSION $PACKAGE @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ISA = qw(Exporter);
-$VERSION = 1.13;
+$VERSION = 1.14;
my @angcnv = qw(rad2deg rad2grad
deg2rad deg2grad
==== //depot/perl/lib/Math/Trig.t#14 (xtext) ====
Index: perl/lib/Math/Trig.t
--- perl/lib/Math/Trig.t#13~33222~ 2008-02-03 05:10:39.000000000 -0800
+++ perl/lib/Math/Trig.t 2008-02-08 05:27:45.000000000 -0800
@@ -28,8 +28,8 @@
plan(tests => 153);
-use Math::Trig 1.13;
-use Math::Trig 1.13 qw(:pi Inf);
+use Math::Trig 1.14;
+use Math::Trig 1.14 qw(:pi Inf);
my $pip2 = pi / 2;
End of Patch.
