[Catalyst-commits] r10776 -
Catalyst-Runtime/5.80/branches/check_conflicts
rafl at dev.catalyst.perl.org
rafl at dev.catalyst.perl.org
Fri Jul 3 01:13:20 GMT 2009
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;
-}
More information about the Catalyst-commits
mailing list