Change 32970 by [EMAIL PROTECTED] on 2008/01/13 15:28:30
Upgrade to Math-Complex-1.44
Affected files ...
... //depot/perl/lib/Math/Complex.pm#36 edit
... //depot/perl/lib/Math/Complex.t#8 edit
... //depot/perl/lib/Math/Trig.pm#29 edit
... //depot/perl/lib/Math/Trig.t#11 edit
Differences ...
==== //depot/perl/lib/Math/Complex.pm#36 (text) ====
Index: perl/lib/Math/Complex.pm
--- perl/lib/Math/Complex.pm#35~32929~ 2008-01-09 13:50:25.000000000 -0800
+++ perl/lib/Math/Complex.pm 2008-01-13 07:28:30.000000000 -0800
@@ -9,7 +9,7 @@
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $Inf);
-$VERSION = 1.43;
+$VERSION = 1.44;
BEGIN {
# For 64-bit doubles, anyway.
@@ -1927,6 +1927,8 @@
$j->arg(2); # (the last two aka rho, theta)
# can be used also as mutators.
+=head1 CONSTANTS
+
=head2 PI
The constant C<pi> and some handy multiples of it (pi2, pi4,
@@ -1955,6 +1957,13 @@
or it can be something else.
+Also note that in some platforms trying to use the infinity in
+arithmetic operations may result in Perl crashing because using
+an infinity causes SIGFPE or its moral equivalent to be sent.
+The way to ignore this is
+
+ local $SIG{FPE} = sub { };
+
=head1 ERRORS DUE TO DIVISION BY ZERO OR LOGARITHM OF ZERO
The division (/) and the following functions
@@ -2019,6 +2028,10 @@
The bug may be in UNICOS math libs, in UNICOS C compiler, in Math::Complex.
Whatever it is, it does not manifest itself anywhere else where Perl runs.
+=head1 SEE ALSO
+
+L<Math::Trig>
+
=head1 AUTHORS
Daniel S. Lewart <F<lewart!at!uiuc.edu>>
==== //depot/perl/lib/Math/Complex.t#8 (xtext) ====
Index: perl/lib/Math/Complex.t
--- perl/lib/Math/Complex.t#7~32929~ 2008-01-09 13:50:25.000000000 -0800
+++ perl/lib/Math/Complex.t 2008-01-13 07:28:30.000000000 -0800
@@ -13,7 +13,7 @@
}
}
-use Math::Complex 1.43;
+use Math::Complex 1.44;
use vars qw($VERSION);
==== //depot/perl/lib/Math/Trig.pm#29 (text) ====
Index: perl/lib/Math/Trig.pm
--- perl/lib/Math/Trig.pm#28~32929~ 2008-01-09 13:50:25.000000000 -0800
+++ perl/lib/Math/Trig.pm 2008-01-13 07:28:30.000000000 -0800
@@ -10,14 +10,14 @@
use 5.005;
use strict;
-use Math::Complex 1.43;
+use Math::Complex 1.44;
use Math::Complex qw(:trig :pi);
use vars qw($VERSION $PACKAGE @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ISA = qw(Exporter);
-$VERSION = 1.08;
+$VERSION = 1.09;
my @angcnv = qw(rad2deg rad2grad
deg2rad deg2grad
@@ -669,6 +669,8 @@
Do not attempt navigation using these formulas.
+L<Math::Complex>
+
=head1 AUTHORS
Jarkko Hietaniemi <F<jhi!at!iki.fi>> and
==== //depot/perl/lib/Math/Trig.t#11 (xtext) ====
Index: perl/lib/Math/Trig.t
--- perl/lib/Math/Trig.t#10~32929~ 2008-01-09 13:50:25.000000000 -0800
+++ perl/lib/Math/Trig.t 2008-01-13 07:28:30.000000000 -0800
@@ -28,8 +28,8 @@
plan(tests => 135);
-use Math::Trig 1.08;
-use Math::Trig 1.08 qw(Inf);
+use Math::Trig 1.09;
+use Math::Trig 1.09 qw(Inf);
my $pip2 = pi / 2;
@@ -311,8 +311,10 @@
my $BigDouble = 1e40;
-ok(Inf() > $BigDouble);
-ok(Inf() + $BigDouble > $BigDouble);
+local $SIG{FPE} = { }; # E.g. netbsd-alpha core dumps on Inf arith
+
+ok(Inf() > $BigDouble); # This passes in netbsd-alpha.
+ok(Inf() + $BigDouble > $BigDouble); # This coredumps.
ok(Inf() + $BigDouble == Inf());
ok(Inf() - $BigDouble > $BigDouble);
ok(Inf() - $BigDouble == Inf());
End of Patch.
