better error-checking, thanks @shawnlaffan - #499

PDLPorters · Oct 4, 2024 · 95f8866 · 95f8866
1 parent 1916a6a
commit 95f8866
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Libtmp/Transform/Proj4/proj4.pd b/Libtmp/Transform/Proj4/proj4.pd
@@ -145,7 +145,9 @@ my %SKIP = map +($_=>1), qw(
   fixed Earth For CH1903
 );
 sub load_projection_information {
-    my $text = Alien::proj->run_utility ("proj", "-lP");
+    my ($text, $stderr, $exit_code) = Alien::proj->run_utility ("proj", "-lP");
+    warn $stderr if $stderr;
+    die "proj -lP error $exit_code. See above for error text." if $exit_code;
     my @chunks = $text =~ /(.+?)(?=(?:^\S|\z))/gms;
     chomp for @chunks;
     my %descriptions = map {