diff options
| -rw-r--r-- | lib/Math/Complex.pm | 2 | ||||
| -rw-r--r-- | lib/Math/Trig.pm | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/lib/Math/Complex.pm b/lib/Math/Complex.pm index 523b11c5e7..7d05a44b23 100644 --- 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 $ExpInf); -$VERSION = 1.54; +$VERSION = 1.55; use Config; diff --git a/lib/Math/Trig.pm b/lib/Math/Trig.pm index 6d4d949796..30e8433d5e 100644 --- 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.54; +use Math::Complex 1.55; use Math::Complex qw(:trig :pi); use vars qw($VERSION $PACKAGE @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); @ISA = qw(Exporter); -$VERSION = 1.18; +$VERSION = 1.19; my @angcnv = qw(rad2deg rad2grad deg2rad deg2grad @@ -166,7 +166,7 @@ sub great_circle_distance { sub great_circle_direction { my ( $theta0, $phi0, $theta1, $phi1 ) = @_; - my $distance = &great_circle_distance; + my $distance = great_circle_distance($theta0, $phi0, $theta1, $phi1); my $lat0 = pip2 - $phi0; my $lat1 = pip2 - $phi1; @@ -684,7 +684,7 @@ B<NOTE>: you B<cannot> get from A to B like this: and expect C to be B, because the bearing constantly changes when going from A to B (except in some special case like the meridians or the circles of latitudes) and in great_circle_destination() one gives -a constant bearing to follow. +a B<constant> bearing to follow. =head2 CAVEAT FOR GREAT CIRCLE FORMULAS |