Bug#735744: libgeo-point-perl: distance calculations broken

[Niko Tyni]

Package: libgeo-point-perl
Version: 0.94-1
Tags: patch

Geo::Distance integration in Geo::Point seems to be broken.

% perl -MGeo::Point -le 'my $p1 = Geo::Point->latlong(0,0); my $p2 = Geo::Point->latlong(1,1); print $p1->distance($p2)'
Use of uninitialized value in multiplication (*) at /usr/share/perl5/Geo/Distance.pm line 214.
Use of uninitialized value in multiplication (*) at /usr/share/perl5/Geo/Distance.pm line 214.
Can't locate object method "distance_calc" via package "Geo::Distance" at /usr/share/perl5/Geo/Point.pm line 233.

Proposed patches (including tests) attached.
-- 
Niko Tyni   ntyni at debian.org
-------------- next part --------------
A non-text attachment was scrubbed...
Name: 0001-Fix-distance-calculations.patch
Type: text/x-diff
Size: 1350 bytes
Desc: not available
URL: <http://lists.alioth.debian.org/pipermail/pkg-perl-maintainers/attachments/20140117/b60d4559/attachment-0002.patch>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: 0002-Fix-the-degree-and-radian-custom-distance-units.patch
Type: text/x-diff
Size: 1600 bytes
Desc: not available
URL: <http://lists.alioth.debian.org/pipermail/pkg-perl-maintainers/attachments/20140117/b60d4559/attachment-0003.patch>