Upgrade to Math-Complex-1.38

p4raw-id: //depot/perl@32786

diff --git a/lib/Math/Complex.pm b/lib/Math/Complex.pm
index e70e99f..4006b6f 100644 (file)
--- a/lib/Math/Complex.pm
+++ b/lib/Math/Complex.pm
@@ -9,7 +9,7 @@ package Math::Complex;
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $Inf);
 
-$VERSION = 1.37;
+$VERSION = 1.38;
 
 BEGIN {
     unless ($^O eq 'unicosmk') {

diff --git a/lib/Math/Complex.t b/lib/Math/Complex.t
index d14259d..4c5ab37 100755 (executable)
--- a/lib/Math/Complex.t
+++ b/lib/Math/Complex.t
@@ -13,7 +13,7 @@ BEGIN {
     }
 }
 
-use Math::Complex;
+use Math::Complex 1.38;
 
 use vars qw($VERSION);
 

diff --git a/lib/Math/Trig.pm b/lib/Math/Trig.pm
index 0ae7233..b7bfbb9 100644 (file)
--- a/lib/Math/Trig.pm
+++ b/lib/Math/Trig.pm
@@ -10,14 +10,14 @@ package Math::Trig;
 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 @@ The midpoint between London and Tokyo being
 
     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
 

diff --git a/lib/Math/Trig.t b/lib/Math/Trig.t
index 69b34fc..eab2ed7 100755 (executable)
--- a/lib/Math/Trig.t
+++ b/lib/Math/Trig.t
@@ -28,7 +28,7 @@ BEGIN {
 
 plan(tests => 69);
 
-use Math::Trig 1.03;
+use Math::Trig 1.05;
 
 my $pip2 = pi / 2;
 
@@ -145,8 +145,8 @@ use Math::Trig ':radial';
     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);