add a warning if the optional PGPLOT dependency is not available

This warns if PGPLOT is missing when is not installed because optional dependencies can be skipped at installation. This gives users a clear notification of why their code will not load. Mithaldu++ for bringing up the issue on the #pdl IRC <http://irclog.perlgeek.de/pdl/2015-09-15#i_11219756>.
PDLPorters · Sep 16, 2015 · 67a48ac · 67a48ac
1 parent b26afaa
commit 67a48ac
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/Graphics/PGPLOT/PGPLOT.pm b/Graphics/PGPLOT/PGPLOT.pm
@@ -146,7 +146,9 @@ package PDL::Graphics::PGPLOT;
 use PDL::Core qw/:Func :Internal/; # Grab the Core names
 use PDL::Graphics::PGPLOTOptions qw(default_options);
 use PDL::Graphics::PGPLOT::Window;
-use PGPLOT;
+eval { require PGPLOT; PGPLOT->import(); 1 } or do {
+	warn "depedency on PGPLOT is not satisfied: $@";
+};
 use Exporter;
 
 use strict;

diff --git a/Graphics/PGPLOT/Window/Window.pm b/Graphics/PGPLOT/Window/Window.pm
@@ -2258,7 +2258,9 @@ use PDL::Graphics::PGPLOTOptions qw(default_options);
 use PDL::Slices;
 use PDL::NiceSlice;
 use SelfLoader;
-use PGPLOT;
+eval { require PGPLOT; PGPLOT->import(); 1 } or do {
+	warn "depedency on PGPLOT is not satisfied: $@";
+};
 
 require DynaLoader;