[rt #86428] search a few more places for libraries/headers

Imager::Probe now searches the directories specified by LD_LIBRARY_PATH,
DYLD_LIBRARY_PATH, LD_RUN_PATH and LIBRARY_PATH for libraries and
their corresponding s/\blib$/include/ directory for headers.

diff --git a/lib/Imager/Probe.pm b/lib/Imager/Probe.pm
index 781e1ca24b914aacf1d3b43fe91c29d73404267f..db08291b5832b1ab04b27bee050eb67f836d6752 100644 (file)
--- a/lib/Imager/Probe.pm
+++ b/lib/Imager/Probe.pm
@@ -4,7 +4,7 @@ use File::Spec;
 use Config;
 use Cwd ();
 
-our $VERSION = "1.002";
+our $VERSION = "1.003";
 
 my @alt_transfer = qw/altname incsuffix libbase/;
 
@@ -399,6 +399,7 @@ sub _lib_paths {
      "/usr/lib",
      "/usr/local/lib",
      _gcc_lib_paths(),
+     _dyn_lib_paths(),
     );
 }
 
@@ -422,6 +423,12 @@ sub _gcc_lib_paths {
   return grep !/gcc/ && -d, split /:/, $lib_line;
 }
 
+sub _dyn_lib_paths {
+  return map { defined() ? split /\Q$Config{path_sep}/ : () }
+    map $ENV{$_},
+      qw(LD_RUN_PATH LD_LIBRARY_PATH DYLD_LIBRARY_PATH LIBRARY_PATH);
+}
+
 sub _inc_paths {
   my ($req) = @_;
 
@@ -438,6 +445,7 @@ sub _inc_paths {
      ),
      "/usr/include",
      "/usr/local/include",
+     _dyn_inc_paths(),
     );
 
   if ($req->{incsuffix}) {
@@ -447,6 +455,13 @@ sub _inc_paths {
   return @paths;
 }
 
+sub _dyn_inc_paths {
+  return map {
+    my $tmp = $_;
+    $tmp =~ s/\blib$/include/ ? $tmp : ()
+  } _dyn_lib_paths();
+}
+
 sub _paths {
   my (@in) = @_;