[libgeo-proj4-perl] 01/05: New upstream version 1.07

Bas Couwenberg sebastic at debian.org
Thu Nov 9 18:19:04 UTC 2017


This is an automated email from the git hooks/post-receive script.

sebastic pushed a commit to branch master
in repository libgeo-proj4-perl.

commit 1b0832b4555cf4ac09be43b0108e34e9a7db3d20
Author: Bas Couwenberg <sebastic at xs4all.nl>
Date:   Thu Nov 9 19:11:13 2017 +0100

    New upstream version 1.07
---
 Changes          |  6 ++++++
 META.json        |  4 ++--
 META.yml         |  2 +-
 Makefile.PL      |  2 +-
 Proj4.xs         |  6 +++---
 README           | 12 ++++++------
 lib/Geo/Proj4.pm |  2 +-
 7 files changed, 20 insertions(+), 14 deletions(-)

diff --git a/Changes b/Changes
index 5a45e80..93394e9 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,11 @@
 Revision history for Perl extension Geo::Proj4.
 
+version 1.07: Wed  8 Nov 10:57:23 CET 2017
+
+	Fixes:
+	- z-coordinates in transform
+	  rt.cpan.org#121300 [Peter Daen]
+
 version 1.06: Thu 23 Feb 10:24:01 CET 2017
 
 	Fixes:
diff --git a/META.json b/META.json
index 1e428d3..e95bf59 100644
--- a/META.json
+++ b/META.json
@@ -10,7 +10,7 @@
    ],
    "meta-spec" : {
       "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
-      "version" : "2"
+      "version" : 2
    },
    "name" : "Geo-Proj4",
    "no_index" : {
@@ -35,5 +35,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "1.06"
+   "version" : "1.07"
 }
diff --git a/META.yml b/META.yml
index 43978c3..a981aa0 100644
--- a/META.yml
+++ b/META.yml
@@ -18,4 +18,4 @@ no_index:
     - t
     - inc
 requires: {}
-version: 1.06
+version: 1.07
diff --git a/Makefile.PL b/Makefile.PL
index 2f93bb2..c50aa62 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -3,7 +3,7 @@ use ExtUtils::MakeMaker;
 require 5.006;
 
 # increased per release
-my $relversion = '1.06';
+my $relversion = '1.07';
 
 my $libversion = '4.4.9';
 
diff --git a/Proj4.xs b/Proj4.xs
index fefed6a..7bfd548 100644
--- a/Proj4.xs
+++ b/Proj4.xs
@@ -166,7 +166,7 @@ transform_proj4(proj_from, proj_to, points, degrees)
 
 	    x[p] = SvNV(*av_fetch(point, 0, 0));
 	    y[p] = SvNV(*av_fetch(point, 1, 0));
-	    z[p] = av_len(point) < 3 ? 0.0 : SvNV(*av_fetch(point, 1, 0));
+	    z[p] = av_len(point) < 2 ? NAN : SvNV(*av_fetch(point, 2, 0));
 	    /* fprintf(stderr, "point=%f %f %f\n", x[p], y[p], z[p]); */
 
 	    if(degrees && pj_is_latlong(proj_from))
@@ -192,8 +192,8 @@ transform_proj4(proj_from, proj_to, points, degrees)
 	        av_push(res, newSVnv(x[p]));
 	        av_push(res, newSVnv(y[p]));
 
-	        if(z[p]!=0.0) av_push(res, newSVnv(z[p]));
-		av_push(retlist, newRV((SV *)res));
+	        if(!isnan(z[p])) av_push(res, newSVnv(z[p]));
+	        av_push(retlist, newRV((SV *)res));
 	    }
 
 	    XPUSHs(newRV_noinc((SV *)retlist));
diff --git a/README b/README
index 7c1f5e7..39cd9a9 100644
--- a/README
+++ b/README
@@ -1,5 +1,5 @@
-=== README for Geo-Proj4 version 1.06
-=   Generated on Thu Feb 23 10:24:50 2017 by OODoc 2.02
+=== README for Geo-Proj4 version 1.07
+=   Generated on Wed Nov  8 10:57:37 2017 by OODoc 2.02
 
 There are various ways to install this module:
 
@@ -9,16 +9,16 @@ There are various ways to install this module:
  (2) if you use Windows, have a look at http://ppm.activestate.com/
 
  (3) if you have downloaded this module manually (as root/administrator)
-       gzip -d Geo-Proj4-1.06.tar.gz
-       tar -xf Geo-Proj4-1.06.tar
-       cd Geo-Proj4-1.06
+       gzip -d Geo-Proj4-1.07.tar.gz
+       tar -xf Geo-Proj4-1.07.tar
+       cd Geo-Proj4-1.07
        perl Makefile.PL
        make          # optional
        make test     # optional
        make install
 
 For usage, see the included manual-pages or
-    http://search.cpan.org/dist/Geo-Proj4-1.06/
+    http://search.cpan.org/dist/Geo-Proj4-1.07/
 
 Please report problems to
     http://rt.cpan.org/Dist/Display.html?Queue=Geo-Proj4
diff --git a/lib/Geo/Proj4.pm b/lib/Geo/Proj4.pm
index c5df181..384248e 100644
--- a/lib/Geo/Proj4.pm
+++ b/lib/Geo/Proj4.pm
@@ -4,7 +4,7 @@
 # Pod stripped from pm file by OODoc 2.02.
 package Geo::Proj4;
 use vars '$VERSION';
-$VERSION = '1.06';
+$VERSION = '1.07';
 
 
 use strict;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-grass/libgeo-proj4-perl.git



More information about the Pkg-grass-devel mailing list