X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=a872582be71c84f2e053b7ae6ffe8a5efbd6dd85;hb=e347ce3fe9e40dc060e73e07f282729f4191c878;hp=8a5d375684d5620ca0a43c5aa9d788dcc2b913a2;hpb=6e97d9ad838f92e8b8b962a8cb026f8b6e0f9ce3;p=gitmo%2FClass-MOP.git diff --git a/Makefile.PL b/Makefile.PL index 8a5d375..a872582 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,165 +1,121 @@ -# The perl/C checking voodoo is mostly stolen from Graham Barr's -# Scalar-List-Utils distribution. use strict; use warnings; +use inc::Module::Install; +use 5.008001; -use ExtUtils::MakeMaker; -use Config qw(%Config); -use File::Spec; +check_conflicts(); -use 5.008; +name 'Class-MOP'; +perl_version '5.008001'; +all_from 'lib/Class/MOP.pm'; +license 'perl'; -# If undefined, try our best, if true, require XS, if false, never do -# XS -my $force_xs; +require Config; +my $ccflags = ( $Config::Config{ccflags} || '' ) . ' -I.'; +$ccflags .= ' -Wall' if -d '.svn' || -d '.git' || $ENV{MAINTAINER_MODE}; -for (@ARGV) { - /^--pm/ and $force_xs = 0; - /^--xs/ and $force_xs = 1; -} - -our $has_compiler = $force_xs; -unless ( defined $force_xs ) { - $has_compiler = check_for_compiler() - or no_cc(); -} - -my %prereqs = ( - 'Scalar::Util' => '1.18', - 'Sub::Name' => '0.04', - 'Sub::Identify' => '0.03', - 'MRO::Compat' => '0.05', - 'Test::More' => '0', - 'Test::Exception' => '0', - 'File::Spec' => '0', - 'Carp' => '0', - 'Devel::GlobalDestruction' => '0', - 'Task::Weaken' => '0', - 'B' => '0', -); - -delete @prereqs{qw(Sub::Name Devel::GlobalDestruction)} - unless $has_compiler; - -write_makefile(); - -sub write_makefile { - my $ccflags = -d '.svn' || $ENV{MAINTAINER_MODE} ? '-Wall' : ''; - - WriteMakefile( - VERSION_FROM => 'lib/Class/MOP.pm', - NAME => 'Class::MOP', - PREREQ_PM => \%prereqs, - CONFIGURE => \&init, - CCFLAGS => $ccflags, - clean => { FILES => 'test.c test.o t/pp*' }, - ABSTRACT_FROM => 'lib/Class/MOP.pm', - AUTHOR => 'Stevan Little ', - LICENSE => 'perl', - ); -} +requires 'Carp'; +requires 'Devel::GlobalDestruction'; +requires 'MRO::Compat' => '0.05'; +requires 'Scalar::Util' => '1.18'; +requires 'Sub::Name' => '0.04'; +requires 'Task::Weaken'; -sub no_cc { - print <<'EOF'; +test_requires 'File::Spec'; +test_requires 'Test::More' => '0.88'; +test_requires 'Test::Exception' => '0.27'; - I cannot determine if you have a C compiler - so I will install a perl-only implementation +extra_tests(); - You can force installation of the XS version with +makemaker_args( CCFLAGS => $ccflags ); - perl Makefile.PL --xs - -EOF -} +{ + my (@clean, @OBJECT, %XS); -sub check_for_compiler { - print "Testing if you have a C compiler\n"; + for my $xs () { + (my $c = $xs) =~ s/\.xs$/.c/i; + (my $o = $xs) =~ s/\.xs$/\$(OBJ_EXT)/i; - eval { require ExtUtils::CBuilder }; - if ($@) { - return _check_for_compiler_manually(); - } - else { - return _check_for_compiler_with_cbuilder(); + $XS{$xs} = $c; + push @OBJECT, $o; + push @clean, $o; } -} -sub _check_for_compiler_with_cbuilder { - my $cb = ExtUtils::CBuilder->new( quiet => 1 ); - - return $cb->have_compiler(); -} - -sub _check_for_compiler_manually { - unless ( open F, '>', 'test.c' ) { - warn - "Cannot write test.c, skipping test compilation and installing pure Perl version.\n"; - return 0; + for my $c (<*.c>) { + (my $o = $c) =~ s/\.c$/\$(OBJ_EXT)/i; + push @OBJECT, $o; + push @clean, $o; } - print F <<'EOF'; -int main() { return 0; } -EOF + makemaker_args( + clean => { FILES => join(q{ }, @clean) }, + OBJECT => join (q{ }, @OBJECT), + XS => \%XS, + ); +} - close F or return 0; +postamble(<<'EOM'); +$(OBJECT) : mop.h +EOM - my $cc = $Config{cc}; - if ( $cc =~ /cl(\.exe)?$/ ) { +WriteAll(); - # stupid stupid MSVC compiler hack tacken from version.pm's - # Makefile.PL - $cc .= ' -c'; # prevent it from calling the linker - } +# Use the cpan-smolder-stable script in the Moose svn root to figure +# out what on CPAN will break with the latest Moose, then update this +# before a release. +sub check_conflicts { + my %conflicts = ( + 'Moose' => '0.85', + ); - system("$cc -o test$Config{obj_ext} test.c") and return 0; + my $found = 0; + for my $mod ( sort keys %conflicts ) { + eval "require $mod"; + next if $@; - unlink $_ for grep {-f} 'test.c', "test$Config{obj_ext}"; + my $installed = $mod->VERSION(); + if ( $installed le $conflicts{$mod} ) { - return 1; -} + print <<"EOF"; -# This sucks, but it's the best guess we can make. Since we just use -# it to run two sets of tests, it's not big deal if it ends up true -# for a non-maintainer. -sub is_maintainer { - return 0 if $ENV{PERL5_CPAN_IS_RUNNING} || $ENV{PERL5_CPANPLUS_IS_RUNNING}; +*** + This version of Class::MOP conflicts with the version of + $mod ($installed) you have installed. - return 1; -} + You will need to upgrade $mod after installing + this version of Class::MOP. +*** -sub get_pp_tests { - opendir my $dh, 't' or die "Cannot read t: $!"; +EOF - return map { - File::Spec->catfile('t', "pp_${_}") - } grep { $_ !~ /^99/ } grep {/^\d.+\.t$/} readdir $dh; -} + $found = 1; + } + } -# This is EUMM voodoo -sub init { - my $hash = $_[1]; + return unless $found; - unless ($has_compiler) { - @{$hash}{ 'XS', 'C' } = ( {}, [] ); - } + # More or less copied from Module::Build + return if $ENV{PERL_MM_USE_DEFAULT}; + return unless -t STDIN && ( -t STDOUT || !( -f STDOUT || -c STDOUT ) ); - $hash; + sleep 4; } package MY; -sub postamble { - my $pp_tests = join q{ }, ::get_pp_tests(); - my $test_dep = $::has_compiler && ::is_maintainer() - ? 'pure_all :: pp_tests' - : ''; +use Config; - return <<"EOM" -pp_tests: ${pp_tests} +sub const_cccmd { + my $ret = shift->SUPER::const_cccmd(@_); + return q{} unless $ret; -${test_dep} + if ($Config{cc} =~ /^cl\b/i) { + warn 'you are using MSVC... my condolences.'; + $ret .= ' /Fo$@'; + } + else { + $ret .= ' -o $@'; + } -t/pp_%: t/% t/header_pp.inc -\t\$(NOECHO) \$(ABSPERLRUN) "-MExtUtils::Command" -e cat t/header_pp.inc \$< >> \$@ -EOM + return $ret; }