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