Merge branch 'check_conflicts'
Florian Ragwitz [Fri, 3 Jul 2009 23:31:45 +0000 (23:31 +0000)]
check_conflicts:
Port to Module::Install::CheckConflicts.
Create branch check_conflicts

Conflicts:
Makefile.PL

1  2 
Makefile.PL

diff --cc Makefile.PL
@@@ -93,7 -101,7 +93,7 @@@ print <<"EOF"
          perl -MCPANPLUS -e 'install Catalyst::Devel' # or
          perl -MCPAN -e 'install Catalyst::Devel'
  
--    To get some commonly used plugins, as well as the TT view and DBIC 
++    To get some commonly used plugins, as well as the TT view and DBIC
      model, install Task::Catalyst in the same way.
  
   Have fun!
@@@ -146,43 -154,17 +146,3 @@@ sub darwin_check_no_resource_forks 
                                            ' echo "to avoid getting resource forks in your dist."; exit 255; fi' });
          }
  }
--
- sub check_conflicts {
-     my %conflicts = @_;
-     my %conflicts_found;
-     for my $mod ( sort keys %conflicts ) {
-         eval "require($mod)";
-         next if $@;
-         my $installed = $mod->VERSION();
-         $conflicts_found{$mod} = $installed if ( $installed le $conflicts{$mod} );
-     }
-     return unless scalar keys %conflicts_found;
-     print <<"EOF";
-  WARNING:
-     This version of Catalyst conflicts with the versions of
-     some components you have installed.
-     You will need to upgrade these modules after installing
-     this version of Catalyst.
-     List of the conflicting components and their installed versions:
- EOF
-     foreach my $mod (keys %conflicts_found) {
-         print sprintf("    %s => %s\n", $mod, $conflicts_found{$mod});
-     }
-     print "\n";
-     # More or less copied from Module::Build, via Moose
-     return if $ENV{PERL_MM_USE_DEFAULT};
-     return unless -t STDIN && (-t STDOUT || !(-f STDOUT || -c STDOUT));
-     sleep 4;
- }
 -sub strip_author_only_build_requires {
 -    my @build_requires_to_strip = @_;
 -    Meta->{values}{build_requires} = [ grep {
 -      my $ok = 1;
 -      foreach my $module (@build_requires_to_strip) {
 -        if ($_->[0] =~ /$module/) {
 -          $ok = 0;
 -          last;
 -        }
 -      }
 -      $ok;
 -    } @{Meta->{values}{build_requires}} ];
 -}