mirror of
https://git.freebsd.org/ports.git
synced 2025-07-18 01:39:16 -04:00
Update to 0.11
PR: 87486 Submitted by: Rod Taylor <ports@rbt.ca> (maintainer)
This commit is contained in:
parent
72d98ca4de
commit
f99bd7c56a
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=145467
3 changed files with 11 additions and 56 deletions
|
@ -6,8 +6,7 @@
|
||||||
#
|
#
|
||||||
|
|
||||||
PORTNAME= Geo-Distance
|
PORTNAME= Geo-Distance
|
||||||
PORTVERSION= 0.06
|
PORTVERSION= 0.11
|
||||||
PORTREVISION= 1
|
|
||||||
CATEGORIES= math perl5
|
CATEGORIES= math perl5
|
||||||
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
|
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
|
||||||
MASTER_SITE_SUBDIR= Geo
|
MASTER_SITE_SUBDIR= Geo
|
||||||
|
@ -18,6 +17,13 @@ COMMENT= Calculate Distances and Closest Locations
|
||||||
|
|
||||||
PERL_CONFIGURE= yes
|
PERL_CONFIGURE= yes
|
||||||
|
|
||||||
|
.include <bsd.port.pre.mk>
|
||||||
|
|
||||||
|
# Module from CPAN written for 5.6 or later
|
||||||
|
.if ${PERL_LEVEL} < 500600
|
||||||
|
IGNORE= Port requires perl 5.6.x or later. Install lang/perl5.8 then try again
|
||||||
|
.endif
|
||||||
|
|
||||||
MAN3= Geo::Distance.3
|
MAN3= Geo::Distance.3
|
||||||
|
|
||||||
.include <bsd.port.mk>
|
.include <bsd.port.post.mk>
|
||||||
|
|
|
@ -1,2 +1,2 @@
|
||||||
MD5 (Geo-Distance-0.06.tar.gz) = 6313eb1cdabca80d494d213db1aa94c0
|
MD5 (Geo-Distance-0.11.tar.gz) = d7bd2b67a3d3e233fa79be5c1b3f7352
|
||||||
SIZE (Geo-Distance-0.06.tar.gz) = 9234
|
SIZE (Geo-Distance-0.11.tar.gz) = 9684
|
||||||
|
|
|
@ -1,51 +0,0 @@
|
||||||
--- ../../../Geo-Distance-0.06/Distance.pm Wed Jun 30 02:12:10 2004
|
|
||||||
+++ Distance.pm Sun Jul 11 21:46:44 2004
|
|
||||||
@@ -1,21 +1,20 @@
|
|
||||||
package Geo::Distance;
|
|
||||||
|
|
||||||
-use 5.006;
|
|
||||||
use strict;
|
|
||||||
-use warnings;
|
|
||||||
use Carp;
|
|
||||||
use Math::Trig qw( great_circle_distance deg2rad );
|
|
||||||
|
|
||||||
require Exporter;
|
|
||||||
-our @ISA = qw(Exporter);
|
|
||||||
-our %EXPORT_TAGS = ( 'all' => [ qw(
|
|
||||||
+use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $VERSION);
|
|
||||||
+@ISA = qw(Exporter);
|
|
||||||
+%EXPORT_TAGS = ( 'all' => [ qw(
|
|
||||||
&distance
|
|
||||||
&distance_calc
|
|
||||||
&find_closest
|
|
||||||
®_unit
|
|
||||||
&formula
|
|
||||||
) ] );
|
|
||||||
-our @EXPORT_OK = (
|
|
||||||
+@EXPORT_OK = (
|
|
||||||
@{ $EXPORT_TAGS{'all'} },
|
|
||||||
'&distance',
|
|
||||||
'&distance_calc',
|
|
||||||
@@ -23,11 +22,11 @@
|
|
||||||
'®_unit',
|
|
||||||
'&formula'
|
|
||||||
);
|
|
||||||
-our $VERSION = '0.06';
|
|
||||||
+$VERSION = '0.06';
|
|
||||||
|
|
||||||
|
|
||||||
# See Math::Trig for what $rho is.
|
|
||||||
-our(%rho,$formula);
|
|
||||||
+use vars qw(%rho $formula);
|
|
||||||
$rho{kilometer} = 6378; # Derived from the Math::Trig POD on the 'great_circle_distance'.
|
|
||||||
$rho{meter} = $rho{kilometer}*1000; # 1000 meters in one kilometer.
|
|
||||||
$rho{centimeter} = $rho{meter}*100; # 100 centimeters in one meter.
|
|
||||||
@@ -41,7 +40,7 @@
|
|
||||||
# Number of units in a single degree (lat or lon) at the equator.
|
|
||||||
# Derived from doing dirty_distance('kilometer',10,0,11,0) = 111.317099692185
|
|
||||||
# Then dividing that by $unit{kilometer} = 6378
|
|
||||||
-our $deg_ratio = 0.01745329252;
|
|
||||||
+use vars qw($deg_ratio); $deg_ratio = 0.01745329252;
|
|
||||||
|
|
||||||
|
|
||||||
# New Object Constructor
|
|
Loading…
Add table
Reference in a new issue