changelog

[gitmo/Package-Stash.git] / inc / MMPackageStash.pm

diff --git a/inc/MMPackageStash.pm b/inc/MMPackageStash.pm
index f90eb99..d471114 100644 (file)
--- a/inc/MMPackageStash.pm
+++ b/inc/MMPackageStash.pm
@@ -22,7 +22,7 @@ sub can_run {
 
         for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
                 next if $dir eq '';
-                my $abs = File::Spec->catfile($dir, $_[1]);
+                my $abs = File::Spec->catfile($dir, $_[0]);
                 return $abs if (-x $abs or $abs = MM->maybe_command($abs));
         }
 
@@ -42,44 +42,13 @@ sub can_cc {
 }
 CAN_CC
 
-    # copied out of moose
-    my $check_conflicts = <<'CHECK_CONFLICTS';
-sub check_conflicts {
-    if (eval { require 'lib/Package/Stash/Conflicts.pm'; 1; }) {
-        if (eval { Package::Stash::Conflicts->check_conflicts; 1 }) {
-            return;
-        }
-        else {
-            my $err = $@;
-            $err =~ s/^/    /mg;
-            warn "***\n$err***\n";
-        }
-    }
-    else {
-        print <<'EOF';
-***
-    Your toolchain doesn't support configure_requires, so Dist::CheckConflicts
-    hasn't been installed yet. You should check for conflicting modules
-    manually using the 'package-stash-conflicts' script that is installed with
-    this distribution once the installation finishes.
-***
-EOF
-    }
-
-    # More or less copied from Module::Build
-    return if $ENV{PERL_MM_USE_DEFAULT};
-    return unless -t STDIN && (-t STDOUT || !(-f STDOUT || -c STDOUT));
-
-    sleep 4;
-}
-CHECK_CONFLICTS
-
     my $template = $self->$orig(@_);
 
-    $template =~ s/(use ExtUtils::MakeMaker.*)/$1\n\ncheck_conflicts();/;
-    $template =~ s/(WriteMakefile\()/delete \$WriteMakefileArgs{PREREQ_PM}{'Package::Stash::XS'}\n  unless can_cc();\n\n$1/;
+    my $xs_version = $self->zilla->prereqs->requirements_for('runtime', 'recommends')->as_string_hash->{'Package::Stash::XS'};
+
+    $template =~ s/(WriteMakefile\()/\$WriteMakefileArgs{PREREQ_PM}{'Package::Stash::XS'} = $xs_version\n  if can_cc();\n\n$1/;
 
-    return $template . $can_cc . $check_conflicts;
+    return $template . $can_cc;
 };
 
 __PACKAGE__->meta->make_immutable;