X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=a872582be71c84f2e053b7ae6ffe8a5efbd6dd85;hb=e347ce3fe9e40dc060e73e07f282729f4191c878;hp=4dbda50473aaef9c2390160ea4a11881bc17a809;hpb=3c5aa6e2c97bf159941256635217c605ce50fac9;p=gitmo%2FClass-MOP.git diff --git a/Makefile.PL b/Makefile.PL index 4dbda50..a872582 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,169 +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; -} - -my $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', -); - -delete @prereqs{qw(Sub::Name Devel::GlobalDestruction)} - unless $has_compiler; - -if ($has_compiler && is_maintainer()) { - create_pp_tests(); -} - -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 +{ + my (@clean, @OBJECT, %XS); -EOF -} + for my $xs () { + (my $c = $xs) =~ s/\.xs$/.c/i; + (my $o = $xs) =~ s/\.xs$/\$(OBJ_EXT)/i; -sub check_for_compiler { - print "Testing if you have a C compiler\n"; - - 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 - - close F or return 0; + makemaker_args( + clean => { FILES => join(q{ }, @clean) }, + OBJECT => join (q{ }, @OBJECT), + XS => \%XS, + ); +} - my $cc = $Config{cc}; - if ( $cc =~ /cl(\.exe)?$/ ) { +postamble(<<'EOM'); +$(OBJECT) : mop.h +EOM - # stupid stupid MSVC compiler hack tacken from version.pm's - # Makefile.PL - $cc .= ' -c'; # prevent it from calling the linker - } +WriteAll(); - system("$cc -o test$Config{obj_ext} test.c") and return 0; +# 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', + ); - unlink $_ for grep {-f} 'test.c', "test$Config{obj_ext}"; + my $found = 0; + for my $mod ( sort keys %conflicts ) { + eval "require $mod"; + next if $@; - return 1; -} + my $installed = $mod->VERSION(); + if ( $installed le $conflicts{$mod} ) { -# 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}; + print <<"EOF"; - return 1; -} +*** + This version of Class::MOP conflicts with the version of + $mod ($installed) you have installed. -sub create_pp_tests { - opendir my $dh, 't' or die "Cannot read t: $!"; + You will need to upgrade $mod after installing + this version of Class::MOP. +*** - foreach my $file ( grep {/^\d.+\.t$/} readdir $dh ) { - next if $file =~ /^99/; +EOF - my $real_file = File::Spec->catfile( 't', $file ); + $found = 1; + } + } - open my $fh, '<', $real_file - or die "Cannot read $real_file: $!"; + return unless $found; - my $shbang = <$fh>; - my $test = do { local $/; <$fh> }; + # More or less copied from Module::Build + return if $ENV{PERL_MM_USE_DEFAULT}; + return unless -t STDIN && ( -t STDOUT || !( -f STDOUT || -c STDOUT ) ); - close $fh; + sleep 4; +} - $test = "$shbang\nBEGIN { \$ENV{CLASS_MOP_NO_XS} = 1 }\n\n$test"; +package MY; - my $new_file = File::Spec->catfile( 't', "pp_$file" ); - open my $new_fh, '>', $new_file - or die "Cannot write to $new_file: $!"; +use Config; - print $new_fh $test; +sub const_cccmd { + my $ret = shift->SUPER::const_cccmd(@_); + return q{} unless $ret; - close $new_fh; + if ($Config{cc} =~ /^cl\b/i) { + warn 'you are using MSVC... my condolences.'; + $ret .= ' /Fo$@'; } -} - -# This is EUMM voodoo -sub init { - my $hash = $_[1]; - - unless ($has_compiler) { - @{$hash}{ 'XS', 'C' } = ( {}, [] ); + else { + $ret .= ' -o $@'; } - $hash; + return $ret; }