Move libnet Net::* to the top level, to mirror the CPAN distribution.
[perl.git] / ext / List-Util / Makefile.PL
1 # -*- perl -*-
2 BEGIN { require 5.006; } # allow CPAN testers to get the point
3 use strict;
4 use warnings;
5 use Config;
6 use File::Spec;
7 use ExtUtils::MakeMaker;
8 my $PERL_CORE = grep { $_ eq 'PERL_CORE=1' } @ARGV;
9
10 my $do_xs = $PERL_CORE || can_cc();
11
12 for (@ARGV) {
13   /^-pm/ and $do_xs = 0;
14   /^-xs/ and $do_xs = 1;
15 }
16
17 WriteMakefile(
18   NAME         => q[List::Util],
19   ABSTRACT     => q[Common Scalar and List utility subroutines],
20   AUTHOR       => q[Graham Barr <gbarr@cpan.org>],
21   DEFINE       => q[-DPERL_EXT],
22   DISTNAME     => q[Scalar-List-Utils],
23   VERSION_FROM => 'lib/List/Util.pm',
24
25   # We go through the ListUtil.xs trickery to foil platforms
26   # that have the feature combination of
27   # (1) static builds
28   # (2) allowing only one object by the same name in the static library
29   # (3) the object name matching being case-blind
30   # This means that we can't have the top-level util.o
31   # and the extension-level Util.o in the same build.
32   # One such platform is the POSIX-BC BS2000 EBCDIC mainframe platform.
33   XS     => {'ListUtil.xs' => 'ListUtil.c'},
34   OBJECT => 'ListUtil$(OBJ_EXT)',
35   ( $PERL_CORE
36     ? ()
37     : (
38       INSTALLDIRS => q[perl],
39       PREREQ_PM   => {'Test::More' => 0,},
40       (eval { ExtUtils::MakeMaker->VERSION(6.31) } ? (LICENSE => 'perl') : ()),
41       ($do_xs ? () : (XS => {}, C => [], OBJECT => '')),
42       ( eval { ExtUtils::MakeMaker->VERSION(6.46) } ? (
43           META_MERGE => {
44             resources => {    ##
45               repository => 'http://github.com/gbarr/Scalar-List-Utils',
46             },
47           }
48           )
49         : ()
50       ),
51     )
52   ),
53 );
54
55
56 sub can_cc {
57
58     foreach my $cmd (split(/ /, $Config::Config{cc})) {
59         my $_cmd = $cmd;
60         return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));
61
62         for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
63             my $abs = File::Spec->catfile($dir, $_[1]);
64             return $abs if (-x $abs or $abs = MM->maybe_command($abs));
65         }
66     }
67
68     return;
69 }
70
71 package MY;
72
73 sub init_PM  {
74   my $self = shift;
75
76   $self->SUPER::init_PM(@_);
77
78   return if $do_xs;
79
80   my $pm = $self->{PM};
81   my $pm_file = File::Spec->catfile(qw(lib List Util XS.pm));
82
83   # When installing pure perl, install XS.pp as XS.pm
84   $self->{PM}{'XS.pp'} = delete $self->{PM}{$pm_file};
85 }
86