ext/IO/Makefile.PL

   1 # This -*- perl -*- script makes the Makefile
   2
   3 require 5.006_001;
   4 use ExtUtils::MakeMaker;
   5 use Config qw(%Config);
   6
   7 #--- MY package
   8
   9 sub MY::libscan {
  10   my($self,$path) = @_;
  11
  12   return ''
  13         if($path =~ m:/(RCS|CVS|SCCS|\.svn)/: ||
  14            $path =~ m:[~%]$: ||
  15            $path =~ m:\.(orig|rej)$:
  16           );
  17
  18   $path;
  19 }
  20
  21
  22 #--- Attempt to find <poll.h>
  23
  24 my $define = "";
  25
  26 unless (exists $Config{'i_poll'}) {
  27   my @inc = split(/\s+/, join(" ",$Config{'usrinc'},$Config{'incpth'},$Config{'locincpth'}));
  28   foreach $path (@inc) {
  29       if(-f $path . "/poll.h") {
  30           $define .= "-DI_POLL ";
  31           last;
  32       }
  33   }
  34 }
  35
  36 #--- Write the Makefile
  37
  38 WriteMakefile(
  39         VERSION_FROM    => "IO.pm",
  40         NAME            => "IO",
  41         OBJECT          => '$(O_FILES)',
  42         DEFINE          => $define,
  43
  44         'clean'         => {FILES => join(" ",
  45                                         map { "$_ */$_ */*/$_" }
  46                                         qw(*% *.html *.b[ac]k *.old *.orig))
  47                            },
  48         INSTALLDIRS => 'perl',
  49 );