diff options
Diffstat (limited to 'math/p5-Geo-Distance/files/patch-Distance.pm')
| -rw-r--r-- | math/p5-Geo-Distance/files/patch-Distance.pm | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/math/p5-Geo-Distance/files/patch-Distance.pm b/math/p5-Geo-Distance/files/patch-Distance.pm new file mode 100644 index 000000000000..e11afe5042f1 --- /dev/null +++ b/math/p5-Geo-Distance/files/patch-Distance.pm @@ -0,0 +1,51 @@ +--- ../../../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 |