X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=inc%2FMMPackageStash.pm;h=bcbc48eb7546da2f843643be2bdfec59fb5dc9c6;hb=cc8f865ca8368f9514a68d63f083070f15e69f35;hp=b29aa5eee13325cd8e199a2c39f33a331e1dbcfc;hpb=079d40f534bbc0751bd6e2c621edfd367d3943f8;p=gitmo%2FPackage-Stash.git diff --git a/inc/MMPackageStash.pm b/inc/MMPackageStash.pm index b29aa5e..bcbc48e 100644 --- a/inc/MMPackageStash.pm +++ b/inc/MMPackageStash.pm @@ -42,54 +42,11 @@ sub can_cc { } CAN_CC - # copied out of moose - my $check_conflicts = <<'CHECK_CONFLICTS'; -sub check_conflicts { - my %conflicts = ( - 'Class::MOP' => '1.08', - 'MooseX::Role::WithOverloading' => '0.08', - 'namespace::clean' => '0.18', - ); - my $found = 0; - for my $mod ( sort keys %conflicts ) { - eval "require $mod"; - next if $@; - - my $installed = $mod->VERSION(); - if ( $installed le $conflicts{$mod} ) { - - print <<"EOF"; - -*** - This version of Package::Stash conflicts with the version of - $mod ($installed) you have installed. - - You will need to upgrade $mod after installing - this version of Package::Stash. -*** - -EOF - - $found = 1; - } - } - - return unless $found; - - # More or less copied from Module::Build - return if $ENV{PERL_MM_USE_DEFAULT}; - return unless -t STDIN && (-t STDOUT || !(-f STDOUT || -c STDOUT)); - - sleep 4; -} -CHECK_CONFLICTS - my $template = $self->$orig(@_); - $template =~ s/(use ExtUtils::MakeMaker.*)/$1\n\ncheck_conflicts();/; $template =~ s/(WriteMakefile\()/delete \$WriteMakefileArgs{PREREQ_PM}{'Package::Stash::XS'}\n unless can_cc();\n\n$1/; - return $template . $can_cc . $check_conflicts; + return $template . $can_cc; }; __PACKAGE__->meta->make_immutable;