[carton] 363/472: Run fatscript by locating it in @INC rather than from share dir

[Lucas Kanashiro]

This is an automated email from the git hooks/post-receive script.

kanashiro-guest pushed a commit to branch master
in repository carton.

commit c56f26110dec90cf4f8ebb5fd45b553185a5908b
Author: Tatsuhiko Miyagawa <miyagawa at bulknews.net>
Date:   Wed Jul 24 12:28:25 2013 -0700

    Run fatscript by locating it in @INC rather than from share dir
---
 cpanfile              | 1 -
 lib/Carton/Builder.pm | 7 ++++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/cpanfile b/cpanfile
index a6b6aff..24a99f8 100644
--- a/cpanfile
+++ b/cpanfile
@@ -15,7 +15,6 @@ requires 'Exception::Class', 1.32;
 requires 'Getopt::Long', 2.39;
 requires 'Moo', 1.002;
 requires 'Path::Tiny', 0.022;
-requires 'File::ShareDir', 1.03;
 
 # MYMETA support
 requires 'App::cpanminus', 1.6928;
diff --git a/lib/Carton/Builder.pm b/lib/Carton/Builder.pm
index 05ca980..19cfb0a 100644
--- a/lib/Carton/Builder.pm
+++ b/lib/Carton/Builder.pm
@@ -1,6 +1,6 @@
 package Carton::Builder;
 use strict;
-use File::ShareDir 'dist_file';
+use Module::Metadata;
 use Moo;
 
 has mirror  => (is => 'rw');
@@ -88,8 +88,9 @@ sub update {
 sub run_cpanm {
     my($self, @args) = @_;
     local $ENV{PERL_CPANM_OPT};
-    my $bin = dist_file('App-cpanminus', 'cpanm');
-    !system $^X, $bin, "--quiet", "--notest", @args;
+    my $path = Module::Metadata->find_module_by_name("App::cpanminus::fatscript")
+        or die "Can't locate App::cpanminus::fatscript.";
+    !system $^X, $path, "--quiet", "--notest", @args;
 }
 
 1;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git