X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=Makefile.PL;h=c0a1454b6e379348979f4dc7ff349d1f156c92dc;hp=d877c790ac792263aa4c83c0f48a277bffbd88df;hb=d31581c60ff345e3fa71ca66bc83e826935b158b;hpb=1cdcbcf5cbb370999326c22f79e4e013914de7b0

diff --git a/Makefile.PL b/Makefile.PL
index d877c79..c0a1454 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -40,22 +40,6 @@ recommends 'B::Hooks::OP::Check::StashChange';
 test_requires 'Class::Data::Inheritable';
 test_requires 'Test::MockObject';
 
-# NOTE - This is the version number which the user must upgrade to to be ok,
-my %conflicts = (
-    'Catalyst::Plugin::ConfigLoader'   => '0.23', # Older versions work but
-                                                  # throw Data::Visitor warns
-    'Catalyst::Devel'                  => '0.10',
-    'Catalyst::Plugin::SmartURI'       => '0.030',
-    'CatalystX::CRUD'                  => '0.38',
-    'Catalyst::Action::RenderView'     => '0.08',
-    'Catalyst::Plugin::DebugCookie'    => '0.999003',
-    'Catalyst::Plugin::Authentication' => '0.100092',
-    'CatalystX::Imports'               => '0.04',
-    'Catalyst::Plugin::HashedCookies'  => '1.04',
-    'Catalyst::Action::REST'           => '0.68',
-);
-check_conflicts(%conflicts);
-
 # Run aggregate tests if AGGREGATE_TESTS environment = 1, but not if it = 0
 # Otherwise default to using Test::Aggregate if installed, but not requiring it.
 if (   ( exists $ENV{AGGREGATE_TESTS} && !$ENV{AGGREGATE_TESTS})
@@ -89,11 +73,7 @@ if ($Module::Install::AUTHOR) {
 
   # Strip out the author only build_requires from META.yml
   # Need to do this _after_ WriteAll else it looses track of them
-  strip_build_requires(@force_build_requires_if_author);
-
-  # Strip out any conflicts, so that even if the author has a conflicting
-  # module installed, we don't end up with META.fail
-  strip_requires(keys %conflicts);
+  strip_author_only_build_requires(@force_build_requires_if_author);
 
   Meta->{values}{resources} = [
     [ 'MailingList' => 'http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst' ],
@@ -124,6 +104,23 @@ print <<"EOF";
  Have fun!
 EOF
 
+# NOTE - This is the version number of the _incompatible_ code,
+#        not the version number of the fixed version.
+my %conflicts = (
+    'Catalyst::Plugin::ConfigLoader'   => '0.22', # Older versions work but
+                                                  # throw Data::Visitor warns
+    'Catalyst::Devel'                  => '0.09',
+    'Catalyst::Plugin::SmartURI'       => '0.029',
+    'CatalystX::CRUD'                  => '0.37',
+    'Catalyst::Action::RenderView'     => '0.07',
+    'Catalyst::Plugin::DebugCookie'    => '0.999002',
+    'Catalyst::Plugin::Authentication' => '0.100091',
+    'CatalystX::Imports'               => '0.03',
+    'Catalyst::Plugin::HashedCookies'  => '1.03',
+    'Catalyst::Action::REST'           => '0.67',
+);
+check_conflicts(%conflicts);
+
 # End of script, helper functions below.
 
 sub darwin_check_no_resource_forks {
@@ -141,24 +138,18 @@ sub darwin_check_no_resource_forks {
         }
 }
 
-sub strip_build_requires {
-    _strip_a_requires('build_requires', @_);
-}
-sub strip_requires {
-    _strip_a_requires('requires', @_);
-}
-sub _strip_a_requires {
-    my ($type, @to_strip) = @_;
-    Meta->{values}{$type} = [ grep {
+sub strip_author_only_build_requires {
+    my @build_requires_to_strip = @_;
+    Meta->{values}{build_requires} = [ grep {
       my $ok = 1;
-      foreach my $module (@to_strip) {
+      foreach my $module (@build_requires_to_strip) {
         if ($_->[0] =~ /$module/) {
           $ok = 0;
           last;
         }
       }
       $ok;
-    } @{Meta->{values}{$type}} ];
+    } @{Meta->{values}{build_requires}} ];
 }
 
 sub check_conflicts {
@@ -170,8 +161,7 @@ sub check_conflicts {
         next if $@;
 
         my $installed = $mod->VERSION();
-        $conflicts_found{$mod} = $installed
-            if ( $installed lt $conflicts{$mod} );
+        $conflicts_found{$mod} = $installed if ( $installed le $conflicts{$mod} );
     }
 
     return unless scalar keys %conflicts_found;
@@ -193,11 +183,11 @@ EOF
     foreach my $mod (keys %conflicts_found) {
         print sprintf("    %s => %s\n", $mod, $conflicts_found{$mod});
     }
-    print "\n\n";
-    return unless prompt("Would you like to upgrade these modules as part of this install?", 'N') =~ /Y/i;
+    print "\n";
 
-    foreach my $mod (keys %conflicts_found) {
-        requires($mod, $conflicts{$mod})
-            if prompt("Install $mod?", 'Y') =~ /Y/i;
-    }
+    # 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;
 }