From: Florian Ragwitz <rafl@debian.org>
Date: Fri, 3 Jul 2009 01:13:20 +0000 (+0000)
Subject: Port to Module::Install::CheckConflicts.
X-Git-Tag: 5.80025~19^2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=27c47255d4bd1cc7456c847327b18569ff6b46f0;hp=eb1057a194ca0459c1a6383fa53959b63d2b10be

Port to Module::Install::CheckConflicts.
---

diff --git a/Makefile.PL b/Makefile.PL
index a08a13b..4f551ca 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -168,43 +168,3 @@ sub strip_author_only_build_requires {
       $ok;
     } @{Meta->{values}{build_requires}} ];
 }
-
-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;
-}