allow Imager::Probe to accept arrayrefs for incpath and libpath, and
authorTony Cook <tony@develop=help.com>
Tue, 28 Sep 2010 12:20:46 +0000 (12:20 +0000)
committerTony Cook <tony@develop=help.com>
Tue, 28 Sep 2010 12:20:46 +0000 (12:20 +0000)
supply the header/library paths that way in */Makefile.PL

Changes
FT2/Makefile.PL
GIF/Makefile.PL
JPEG/Makefile.PL
PNG/Makefile.PL
TIFF/Makefile.PL
W32/Makefile.PL
lib/Imager/Probe.pm

diff --git a/Changes b/Changes
index e873688..7e265ab 100644 (file)
--- a/Changes
+++ b/Changes
@@ -12,6 +12,9 @@ Bug fixes:
    by name, etc.
    https://rt.cpan.org/Ticket/Display.html?id=61047
 
+ - Imager::Probe now accepts array references for incpath and libpath.
+   https://rt.cpan.org/Ticket/Display.html?id=60244
+
 Imager 0.77_02 - 27 Sep 2010
 ==============
 
index fbaae50..1c7f9c4 100644 (file)
@@ -82,8 +82,8 @@ my %probe =
    testcode => _ft2_test_code(),
    testcodeheaders => [ "stdio.h", "string.h", "ft2build.h" ],
    testcodeprologue => _ft2_test_code_prologue(),
-   incpath => join($Config{path_sep}, @incpaths),
-   libpath => join($Config{path_sep}, @libpaths),
+   incpath => \@incpaths,
+   libpath => \@libpaths,
    alternatives =>
    [
     {
index 229f8b3..dd738fc 100644 (file)
@@ -77,8 +77,8 @@ my %probe =
    libbase => "gif",
    testcode => _gif_test_code(),
    testcodeheaders => [ "gif_lib.h", "stdio.h" ],
-   incpath => join($Config{path_sep}, @incpaths),
-   libpath => join($Config{path_sep}, @libpaths),
+   incpath => \@incpaths,
+   libpath => \@libpaths,
   );
 
 my $probe_res = Imager::Probe->probe(\%probe);
index 0edda02..c360098 100644 (file)
@@ -77,8 +77,8 @@ my %probe =
    libbase => "jpeg",
    testcode => _jpeg_test_code(),
    testcodeheaders => [ "stdio.h", "stddef.h", "jpeglib.h" ],
-   incpath => join($Config{path_sep}, @incpaths),
-   libpath => join($Config{path_sep}, @libpaths),
+   incpath => \@incpaths,
+   libpath => \@libpaths,
   );
 
 my $probe_res = Imager::Probe->probe(\%probe);
index fb5122e..2fb8d48 100644 (file)
@@ -79,8 +79,8 @@ my %probe =
    libbase => "png",
    testcode => _png_test_code(),
    testcodeheaders => [ "png.h", "stdio.h" ],
-   incpath => join($Config{path_sep}, @incpaths),
-   libpath => join($Config{path_sep}, @libpaths),
+   incpath => \@incpaths,
+   libpath => \@libpaths,
    alternatives =>
    [
     {
index a5f4b70..1668214 100644 (file)
@@ -77,8 +77,8 @@ my %probe =
    libbase => "tiff",
    testcode => _tiff_test_code(),
    testcodeheaders => [ "tiffio.h", "stdio.h", "string.h" ],
-   incpath => join($Config{path_sep}, @incpaths),
-   libpath => join($Config{path_sep}, @libpaths),
+   incpath => \@incpaths,
+   libpath => \@libpaths,
   );
 
 my $probe_res = Imager::Probe->probe(\%probe);
index 86f2230..78a8b7a 100644 (file)
@@ -79,8 +79,8 @@ my %probe =
    libbase => "gdi32",
    testcode => _win32_test_code(),
    testcodeheaders => [ "stdio.h", "string.h", "windows.h" ],
-   incpath => join($Config{path_sep}, @incpaths),
-   libpath => join($Config{path_sep}, @libpaths),
+   incpath => \@incpaths,
+   libpath => \@libpaths,
   );
 
 my $probe_res = Imager::Probe->probe(\%probe);
index 06123f1..fe160f9 100644 (file)
@@ -308,6 +308,9 @@ sub _paths {
 
   my @out;
 
+  # expand any array refs
+  @in = map { ref() ? @$_ : $_ } @in;
+
   for my $path (@in) {
     $path or next;
     $path = _tilde_expand($path);
@@ -445,12 +448,12 @@ main function.
 =item *
 
 C<incpath> - C<$Config{path_sep}> separated list of header file
-directories to check.
+directories to check, or a reference to an array of such.
 
 =item *
 
 C<libpath> - C<$Config{path_sep}> separated list of library file
-directories to check.
+directories to check, or a reference to an array of such.
 
 =back