Transform::Proj4 use Alien::proj better for build - #499

Changes

@@ -1,6 +1,7 @@
 - split Graphics/IIS out to separate PDL::Graphics::IIS distro
 - split Libtmp/Minuit out to separate PDL::Minuit distro
 - Transform::Proj4 add NoPthread as using non-thread-safe API
+- Transform::Proj4 use Alien::proj better for build (#499) - thanks @shawnlaffan
 
 2.093 2024-09-29
 - PDL.set_datatype now doesn't physicalise input, PDL.convert_type does

Libtmp/Transform/Proj4/proj4.pd

@@ -6,6 +6,7 @@
 use strict;
 use warnings;
 use File::Spec;
+use Alien::proj;
 
 our $VERSION = "1.32";
 
@@ -144,7 +145,7 @@ my %SKIP = map +($_=>1), qw(
   fixed Earth For CH1903
 );
 sub load_projection_information {
-    my $text = do { open my $fh, '-|', qw(proj -lP) or die "proj -lP: $!"; local $/; <$fh> };
+    my $text = Alien::proj->run_utility ("proj", "-lP");
     my @chunks = $text =~ /(.+?)(?=(?:^\S|\z))/gms;
     chomp for @chunks;
     my %descriptions = map {
@@ -526,12 +527,11 @@ sub proj_params
 
 # Returns a string with information about what parameters proj will
 # actually use, this includes defaults, and +init=file stuff. It's
-# the same as running 'proj -v'. It uses the proj command line, so
-# it might not work with all shells. I've tested it with bash.
+# the same as running 'proj -v'.
 sub get_proj_info
 {
     my $params = shift;
-    my @a = split(/\n/, `echo | proj -v $params`);
+    my @a = split /\n/, Alien::proj->run_utility ("proj", "-v", $params);
     pop(@a);
     return join("\n", @a);
 }