This is an automated email from the git hooks/post-receive script.
kanashiro-guest pushed a commit to branch master
in repository carton.
commit 5ec8087edf88ca3d3241a9b727dad0260373fac0
Author: Tatsuhiko Miyagawa <miyag...@bulknews.net>
Date: Tue Jun 28 11:00:18 2011 -0400
Implemented carton exec. #6
---
Makefile.PL | 1 +
lib/Carton/CLI.pm | 8 ++++++--
2 files changed, 7 insertions(+), 2 deletions(-)
diff --git a/Makefile.PL b/Makefile.PL
index b88e1d2..7a6c29a 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -13,6 +13,7 @@ requires 'Term::ANSIColor', 1.12;
requires 'Module::Metadata', 1.000003;
requires 'Try::Tiny';
requires 'parent';
+requires 'lib::core::only';
install_script 'bin/carton';
diff --git a/lib/Carton/CLI.pm b/lib/Carton/CLI.pm
index 676d2dd..c183f95 100644
--- a/lib/Carton/CLI.pm
+++ b/lib/Carton/CLI.pm
@@ -344,8 +344,12 @@ sub cmd_update {
}
sub cmd_exec {
- # setup lib::core::only, -L env, put extlib/bin into PATH and exec script
- die "Unimplemented";
+ my($self, @args) = @_;
+
+ my $path = $self->config->get('path');
+ local $ENV{PERL5OPT} = "-Mlib::core::only -Mlib=$path/lib/perl5";
+ local $ENV{PATH} = "$path/bin:$ENV{PATH}";
+ exec @args;
}
sub find_lock {
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/carton.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
