Change 32786 by [EMAIL PROTECTED] on 2007/12/31 03:41:01
Upgrade to Math-Complex-1.38
Affected files ...
... //depot/perl/lib/Math/Complex.pm#33 edit
... //depot/perl/lib/Math/Complex.t#5 edit
... //depot/perl/lib/Math/Trig.pm#26 edit
... //depot/perl/lib/Math/Trig.t#7 edit
Differences ...
==== //depot/perl/lib/Math/Complex.pm#33 (text) ====
Index: perl/lib/Math/Complex.pm
--- perl/lib/Math/Complex.pm#32~29932~ 2007-01-22 18:14:57.000000000 -0800
+++ perl/lib/Math/Complex.pm 2007-12-30 19:41:01.000000000 -0800
@@ -9,7 +9,7 @@
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $Inf);
-$VERSION = 1.37;
+$VERSION = 1.38;
BEGIN {
unless ($^O eq 'unicosmk') {
==== //depot/perl/lib/Math/Complex.t#5 (xtext) ====
Index: perl/lib/Math/Complex.t
--- perl/lib/Math/Complex.t#4~28494~ 2006-07-06 08:18:58.000000000 -0700
+++ perl/lib/Math/Complex.t 2007-12-30 19:41:01.000000000 -0800
@@ -13,7 +13,7 @@
}
}
-use Math::Complex;
+use Math::Complex 1.38;
use vars qw($VERSION);
==== //depot/perl/lib/Math/Trig.pm#26 (text) ====
Index: perl/lib/Math/Trig.pm
--- perl/lib/Math/Trig.pm#25~29932~ 2007-01-22 18:14:57.000000000 -0800
+++ perl/lib/Math/Trig.pm 2007-12-30 19:41:01.000000000 -0800
@@ -10,14 +10,14 @@
use 5.005;
use strict;
-use Math::Complex 1.36;
+use Math::Complex 1.37;
use Math::Complex qw(:trig :pi);
use vars qw($VERSION $PACKAGE @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ISA = qw(Exporter);
-$VERSION = 1.04;
+$VERSION = 1.05;
my @angcnv = qw(rad2deg rad2grad
deg2rad deg2grad
@@ -647,7 +647,7 @@
my @M = great_circle_midpoint(@L, @T);
-or about 89.16N 68.93E, practically at the North Pole.
+or about 68.93N 89.16E, in the frozen wastes of Siberia.
=head2 CAVEAT FOR GREAT CIRCLE FORMULAS
==== //depot/perl/lib/Math/Trig.t#7 (xtext) ====
Index: perl/lib/Math/Trig.t
--- perl/lib/Math/Trig.t#6~29932~ 2007-01-22 18:14:57.000000000 -0800
+++ perl/lib/Math/Trig.t 2007-12-30 19:41:01.000000000 -0800
@@ -28,7 +28,7 @@
plan(tests => 69);
-use Math::Trig 1.03;
+use Math::Trig 1.05;
my $pip2 = pi / 2;
@@ -145,8 +145,8 @@
ok(near(great_circle_distance(0, 0, pi, pi), pi));
# London to Tokyo.
- my @L = (deg2rad(-0.5), deg2rad(90 - 51.3));
- my @T = (deg2rad(139.8),deg2rad(90 - 35.7));
+ my @L = (deg2rad(-0.5), deg2rad(90 - 51.3));
+ my @T = (deg2rad(139.8), deg2rad(90 - 35.7));
my $km = great_circle_distance(@L, @T, 6378);
End of Patch.
