include NA in the die output as suggested by
[imager-screenshot.git] / Makefile.PL
1 #!perl -w
2 use strict;
3 use ExtUtils::MakeMaker;
4 use Imager 0.54;
5 use Imager::ExtUtils;
6 use Config;
7 use File::Spec;
8
9 my @objs = qw/Screenshot.o/;
10 my @cflags;
11 my @lflags;
12 my %seen_incdir;
13 my %seen_libdir;
14 my $X11_lib = $^O eq 'cygwin' ? 'X11.dll' : 'X11';
15 if (find_header("X11/Xlib.h") and find_lib($X11_lib)) {
16   push @objs, 'scx11.o';
17   push @cflags, '-DSS_X11';
18   push @lflags, '-l'.$X11_lib;
19   print "Found X11\n";
20 }
21 if (find_header('windows.h') and find_lib('gdi32')) {
22   push @objs, 'scwin32.o';
23   push @cflags, '-DSS_WIN32';
24   if ($^O eq 'cygwin') {
25     push @lflags, '-L/usr/lib/w32api', '-lgdi32';
26   }
27   print "Found Win32\n";
28 }
29
30 unless (@objs > 1) {
31   die "NA: Sorry, I can't find headers or libraries for a supported GUI\n"
32 }
33
34 my %opts = 
35   (
36    NAME => 'Imager::Screenshot',
37    VERSION_FROM => 'Screenshot.pm',
38    OBJECT => "@objs",
39    PREREQ_PM => {
40                  'Imager'    => 0.54,
41                 },
42    INC => Imager::ExtUtils->includes,
43    TYPEMAPS => [ Imager::ExtUtils->typemap ],
44   );
45
46 $opts{LIBS} = "@lflags" if @lflags;
47 $opts{INC} .= " @cflags" if @cflags;
48
49 # avoid "... isn't numberic in numeric gt ..." warnings for dev versions
50 my $eu_mm_version = eval $ExtUtils::MakeMaker::VERSION;
51 if ($eu_mm_version > 6.06) {
52   $opts{AUTHOR} = 'Tony Cook <tonyc@cpan.org>';
53   $opts{ABSTRACT} = 'Screen/Window capture to Imager images';
54 }
55
56 # LICENSE was introduced in 6.30_01, but Debian etch includes
57 # (as of 2007/01/12) an ExtUtils::MakeMaker versioned 6.30_01 without
58 # LICENSE support
59 if ($eu_mm_version > 6.3001) {
60   $opts{LICENSE} = 'perl';
61 }
62
63 WriteMakefile(%opts);
64
65 my @incs;
66 sub header_search_path {
67   @incs and return @incs;
68
69   push @incs, '/usr/include', '/usr/X11R6/include'
70     unless $^O eq 'MSWin32' && $Config{cc} =~ /\bcl\b/;
71   push @incs, split /\Q$Config{path_sep}/, $ENV{INCLUDE}
72     if $^O eq 'MSWin32' && $Config{cc} =~ /\bcl\b/ and $ENV{INCLUDE};
73   push @incs, split ' ', $Config{locincpth}
74     if $Config{locincpth};
75   push @incs, split /\Q$Config{path_sep}/, $Config{incpath}
76     if $Config{incpath};
77   push @incs, '/usr/include/w32api', '/usr/X11R6/include'
78     if $^O eq 'cygwin';
79
80   @incs = grep -d, @incs;
81
82   @incs;
83 }
84
85 my @libs;
86 sub library_search_path {
87   @libs and return @libs;
88
89   push @libs, '/usr/lib', '/usr/X11R6/lib'
90     unless $^O eq 'MSWin32' && $Config{cc} =~ /\bcl\b/;
91   push @libs, split /\Q$Config{path_sep}/, $ENV{LIB}
92     if $^O eq 'MSWin32' && $Config{cc} =~ /\bcl\b/ and $ENV{LIB};
93   push @libs, split ' ', $Config{loclibpth}
94     if $Config{loclibpth};
95   push @libs, split /\Q$Config{path_sep}/, $Config{libpth}
96     if $Config{libpth};
97   push @libs, '/usr/lib/w32api', '/usr/X11R6/lib'
98     if $^O eq 'cygwin';
99
100   @libs = grep -d, @libs;
101
102   @libs;
103 }
104
105
106 sub _find_file {
107   my ($name, @where) = @_;
108
109   grep -f File::Spec->catfile($_, $name), @where;
110 }
111
112 sub find_header {
113   my @found = _find_file($_[0], header_search_path());
114
115   if (@found) {
116       push @cflags, "-I$_" for grep !$seen_incdir{$_}, @found;
117       @seen_incdir{@found} = (1) x @found;
118   }
119
120   @found;
121 }
122
123 sub find_lib {
124   my $name = shift;
125   my @found;
126   if ($^O eq 'MSWin32' && $Config{_a} eq '.lib') {
127     @found = _find_file($name . $Config{_a}, library_search_path());
128   }
129   else {
130     @found = _find_file("lib" . $name . $Config{_a}, library_search_path());
131   }
132   if (@found) {
133     push @lflags, "-L$_" for grep !$seen_libdir{$_}, @found;
134     @seen_libdir{@found} = (1) x @found;
135   }
136   @found;
137 }