From: Tony Cook <tony@develop-help.com>
Date: Fri, 18 Oct 2013 04:52:56 +0000 (+1100)
Subject: [rt #86428] search a few more places for libraries/headers
X-Git-Tag: v0.98~6
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/306618c39cda46d702ce8784bec425c2caf6cded

[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 781e1ca2..db08291b 100644
--- 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) = @_;