r52960 - in /branches/upstream/libgps-point-perl/current: MANIFEST META.yml Makefile.PL lib/GPS/Point.pm t/006_setAltitude.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Wed Feb 17 19:10:03 UTC 2010
Author: jawnsy-guest
Date: Wed Feb 17 19:09:55 2010
New Revision: 52960
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52960
Log:
[svn-upgrade] Integrating new upstream version, libgps-point-perl (0.18)
Removed:
branches/upstream/libgps-point-perl/current/t/006_setAltitude.t
Modified:
branches/upstream/libgps-point-perl/current/MANIFEST
branches/upstream/libgps-point-perl/current/META.yml
branches/upstream/libgps-point-perl/current/Makefile.PL
branches/upstream/libgps-point-perl/current/lib/GPS/Point.pm
Modified: branches/upstream/libgps-point-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgps-point-perl/current/MANIFEST?rev=52960&op=diff
==============================================================================
--- branches/upstream/libgps-point-perl/current/MANIFEST (original)
+++ branches/upstream/libgps-point-perl/current/MANIFEST Wed Feb 17 19:09:55 2010
@@ -10,6 +10,5 @@
t/003_newGPSD.t
t/004_newMulti.t
t/005_value.t
-t/006_setAltitude.t
scripts/GPS-Point-Example.pl
Todo
Modified: branches/upstream/libgps-point-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgps-point-perl/current/META.yml?rev=52960&op=diff
==============================================================================
--- branches/upstream/libgps-point-perl/current/META.yml (original)
+++ branches/upstream/libgps-point-perl/current/META.yml Wed Feb 17 19:09:55 2010
@@ -1,13 +1,12 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: GPS-Point
-version: 0.17
+version: 0.18
version_from: lib/GPS/Point.pm
installdirs: site
requires:
Scalar::Util: 1.02
strict: 0
- Test::More: 0.44
Test::Number::Delta: 0
Test::Simple: 0.44
warnings: 0
Modified: branches/upstream/libgps-point-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgps-point-perl/current/Makefile.PL?rev=52960&op=diff
==============================================================================
--- branches/upstream/libgps-point-perl/current/Makefile.PL (original)
+++ branches/upstream/libgps-point-perl/current/Makefile.PL Wed Feb 17 19:09:55 2010
@@ -7,10 +7,10 @@
LICENSE => 'bsd',
PREREQ_PM => {
'Test::Simple' => 0.44,
- 'Test::More' => 0.44,
'Test::Number::Delta' => 0,
'strict' => 0,
'warnings' => 0,
'Scalar::Util' => 1.02,
+ #'Geo::ECEF' => 1.10, #required Win32 test
},
);
Modified: branches/upstream/libgps-point-perl/current/lib/GPS/Point.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libgps-point-perl/current/lib/GPS/Point.pm?rev=52960&op=diff
==============================================================================
--- branches/upstream/libgps-point-perl/current/lib/GPS/Point.pm (original)
+++ branches/upstream/libgps-point-perl/current/lib/GPS/Point.pm Wed Feb 17 19:09:55 2010
@@ -3,7 +3,7 @@
use warnings;
use Scalar::Util qw{reftype};
-our $VERSION = '0.17';
+our $VERSION = '0.18';
=head1 NAME
@@ -518,14 +518,12 @@
=cut
sub ecef {
- my $self = shift();
+ my $self=shift;
eval 'use Geo::ECEF';
- if ($@) {
- die("Error: The ecef method requires Geo::ECEF");
- } else {
- my $obj=Geo::ECEF->new();
- return $obj->ecef($self->lat, $self->lat, $self->alt);
- }
+ die("Error: The ecef method requires Geo::ECEF") if $@;
+ die("Error: The found geo::ecef not Geo::ECEF.") unless Geo::ECEF->can("new");
+ my $obj=Geo::ECEF->new;
+ return $obj->ecef($self->lat, $self->lat, $self->alt);
}
=head2 GeoPoint
@@ -643,20 +641,19 @@
=head1 AUTHOR
- Michael R. Davis
- CPAN ID: MRDVT
- DavisNetworks.com
- account=>perl,tld=>com,domain=>michaelrdavis
- http://www.davisnetworks.com/
+ Michael R. Davis
+ CPAN ID: MRDVT
+ DavisNetworks.com
+ account=>perl,tld=>com,domain=>michaelrdavis
+ http://www.davisnetworks.com/
=head1 COPYRIGHT
This program is free software licensed under the...
- The BSD License
-
-The full text of the license can be found in the
-LICENSE file included with this module.
+ The BSD License
+
+The full text of the license can be found in the LICENSE file included with this module.
=head1 SEE ALSO
More information about the Pkg-perl-cvs-commits
mailing list