[Catalyst-commits] r10776 - Catalyst-Runtime/5.80/branches/check_conflicts

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-07-03 01:13:20 +0000 (Fri, 03 Jul 2009)
New Revision: 10776

Modified:
   Catalyst-Runtime/5.80/branches/check_conflicts/Makefile.PL
Log:
Port to Module::Install::CheckConflicts.

Modified: Catalyst-Runtime/5.80/branches/check_conflicts/Makefile.PL
===================================================================
--- Catalyst-Runtime/5.80/branches/check_conflicts/Makefile.PL	2009-07-03 01:04:27 UTC (rev 10775)
+++ Catalyst-Runtime/5.80/branches/check_conflicts/Makefile.PL	2009-07-03 01:13:20 UTC (rev 10776)
@@ -168,43 +168,3 @@
       $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;
-}