$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;
-}