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