Bug#408497: perl-modules: Math::Trig: great_circle_waypoint() returns bad latitudes

[Roland Stigge]

Package: perl
Version: 5.8.8-7
Severity: normal
Tags: patch

Hi,

Uwe Girlich discovered and fixed a problem in Math::Trig
great_circle_waypoint(). Upstream's upstream already fixed it in CPAN, but
integrating it into Debian would be fine, too.

Patch attached.

Thanks.

bye,
  Roland

-- System Information:
Debian Release: 4.0
  APT prefers unstable
  APT policy: (500, 'unstable'), (1, 'experimental')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.18
Locale: LANG=en_GB.UTF-8, LC_CTYPE=en_GB.UTF-8 (charmap=UTF-8) (ignored: LC_ALL 
set to en_GB.UTF-8)

Versions of packages perl depends on:
ii  libc6                       2.3.6.ds1-10 GNU C Library: Shared libraries
ii  libdb4.4                    4.4.20-8     Berkeley v4.4 Database Libraries [
ii  libgdbm3                    1.8.3-3      GNU dbm database routines (runtime
ii  perl-base                   5.8.8-7      The Pathologically Eclectic Rubbis
ii  perl-modules                5.8.8-7      Core Perl modules

Versions of packages perl recommends:
ii  perl-doc                      5.8.8-7    Perl documentation

-- no debconf information

--- /home/stigge/temp/debian/perl-5.8.8/lib/Math/Trig.pm        2007-01-25 
17:13:16.000000000 +0100
+++ lib/Math/Trig.pm    2007-01-21 16:21:21.000000000 +0100
@@ -193,7 +189,7 @@
     my $z = $A * sin($lat0)                + $B * sin($lat1);
 
     my $theta = atan2($y, $x);
-    my $phi   = atan2($z, sqrt($x*$x + $y*$y));
+    my $phi   = acos($z);
     
     return ($theta, $phi);
 }