Change 33225 by [EMAIL PROTECTED] on 2008/02/03 13:56:33
Integrate:
[ 33224]
Integrate:
[ 33222]
Upgrade to Math::Complex 1.48 and Math::Trig 1.13
Affected files ...
... //depot/maint-5.8/perl/lib/Math/Complex.pm#5 integrate
... //depot/maint-5.8/perl/lib/Math/Complex.t#5 integrate
... //depot/maint-5.8/perl/lib/Math/Trig.pm#7 integrate
... //depot/maint-5.8/perl/lib/Math/Trig.t#6 integrate
Differences ...
==== //depot/maint-5.8/perl/lib/Math/Complex.pm#5 (text) ====
Index: perl/lib/Math/Complex.pm
--- perl/lib/Math/Complex.pm#4~33199~ 2008-02-02 09:39:01.000000000 -0800
+++ perl/lib/Math/Complex.pm 2008-02-03 05:56:33.000000000 -0800
@@ -9,7 +9,7 @@
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $Inf);
-$VERSION = 1.47;
+$VERSION = 1.48;
BEGIN {
# For 64-bit doubles, anyway.
@@ -41,6 +41,7 @@
$Inf = $IEEE_DBL_MAX unless defined $Inf; # Oh well, close enough.
die "Could not get Infinity" unless $Inf > 1e99;
}
+ print "# On this machine, Inf = '$Inf'\n";
}
use strict;
@@ -1408,7 +1409,7 @@
if ($x =~ /^NaN[QS]?$/i) {
$re = $x;
} else {
- if ($x =~ /^-?$Inf$/oi) {
+ if ($x =~ /^-?\Q$Inf\E$/oi) {
$re = $x;
} else {
$re = defined $format ? sprintf($format, $x) : $x;
@@ -1422,7 +1423,7 @@
if ($y =~ /^(NaN[QS]?)$/i) {
$im = $y;
} else {
- if ($y =~ /^-?$Inf$/oi) {
+ if ($y =~ /^-?\Q$Inf\E$/oi) {
$im = $y;
} else {
$im =
@@ -1466,7 +1467,7 @@
my %format = $z->display_format;
my $format = $format{format};
- if ($t =~ /^NaN[QS]?$/i || $t =~ /^-?$Inf$/oi) {
+ if ($t =~ /^NaN[QS]?$/i || $t =~ /^-?\Q$Inf\E$/oi) {
$theta = $t;
} elsif ($t == pi) {
$theta = "pi";
==== //depot/maint-5.8/perl/lib/Math/Complex.t#5 (xtext) ====
Index: perl/lib/Math/Complex.t
--- perl/lib/Math/Complex.t#4~33199~ 2008-02-02 09:39:01.000000000 -0800
+++ perl/lib/Math/Complex.t 2008-02-03 05:56:33.000000000 -0800
@@ -13,7 +13,7 @@
}
}
-use Math::Complex 1.47;
+use Math::Complex 1.48;
use vars qw($VERSION);
==== //depot/maint-5.8/perl/lib/Math/Trig.pm#7 (text) ====
Index: perl/lib/Math/Trig.pm
--- perl/lib/Math/Trig.pm#6~33199~ 2008-02-02 09:39:01.000000000 -0800
+++ perl/lib/Math/Trig.pm 2008-02-03 05:56:33.000000000 -0800
@@ -10,14 +10,14 @@
use 5.005;
use strict;
-use Math::Complex 1.47;
+use Math::Complex 1.48;
use Math::Complex qw(:trig :pi);
use vars qw($VERSION $PACKAGE @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ISA = qw(Exporter);
-$VERSION = 1.12;
+$VERSION = 1.13;
my @angcnv = qw(rad2deg rad2grad
deg2rad deg2grad
==== //depot/maint-5.8/perl/lib/Math/Trig.t#6 (xtext) ====
Index: perl/lib/Math/Trig.t
--- perl/lib/Math/Trig.t#5~33199~ 2008-02-02 09:39:01.000000000 -0800
+++ perl/lib/Math/Trig.t 2008-02-03 05:56:33.000000000 -0800
@@ -28,8 +28,8 @@
plan(tests => 153);
-use Math::Trig 1.12;
-use Math::Trig 1.12 qw(:pi Inf);
+use Math::Trig 1.13;
+use Math::Trig 1.13 qw(:pi Inf);
my $pip2 = pi / 2;
@@ -311,10 +311,11 @@
my $BigDouble = 1e40;
-local $SIG{FPE} = { }; # E.g. netbsd-alpha core dumps on Inf arith
+# E.g. netbsd-alpha core dumps on Inf arith without this.
+local $SIG{FPE} = { };
ok(Inf() > $BigDouble); # This passes in netbsd-alpha.
-ok(Inf() + $BigDouble > $BigDouble); # This coredumps.
+ok(Inf() + $BigDouble > $BigDouble); # This coredumps in netbsd-alpha.
ok(Inf() + $BigDouble == Inf());
ok(Inf() - $BigDouble > $BigDouble);
ok(Inf() - $BigDouble == Inf());
End of Patch.
