Update to 0.11

PR:		87486
Submitted by:	Rod Taylor <ports@rbt.ca> (maintainer)
This commit is contained in:
Marcus Alves Grando 2005-10-15 17:35:47 +00:00
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

View file

@ -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>

View file

@ -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

View file

@ -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
&reg_unit
&formula
) ] );
-our @EXPORT_OK = (
+@EXPORT_OK = (
@{ $EXPORT_TAGS{'all'} },
'&distance',
'&distance_calc',
@@ -23,11 +22,11 @@
'&reg_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