This is an automated email from the git hooks/post-receive script. kanashiro-guest pushed a commit to branch master in repository carton.
commit 3476c241a88578c17664c0696f0b93eb73f28a99 Author: Tatsuhiko Miyagawa <miyag...@bulknews.net> Date: Fri Jul 19 23:33:09 2013 -0700 Support carton install --without develop #66 --- lib/Carton/Builder.pm | 14 +++++++++++++- lib/Carton/CLI.pm | 5 ++++- 2 files changed, 17 insertions(+), 2 deletions(-) diff --git a/lib/Carton/Builder.pm b/lib/Carton/Builder.pm index e71c557..dadae87 100644 --- a/lib/Carton/Builder.pm +++ b/lib/Carton/Builder.pm @@ -5,6 +5,7 @@ use Moo; has mirror => (is => 'rw'); has index => (is => 'rw'); has cascade => (is => 'rw', default => sub { 1 }); +has without => (is => 'rw', default => sub { [] }); sub effective_mirrors { my $self = shift; @@ -51,11 +52,22 @@ sub install { ( $self->cascade ? "--cascade-search" : () ), ( $self->custom_mirror ? "--mirror-only" : () ), "--save-dists", "$path/cache", - "--with-develop", + $self->groups, "--installdeps", ".", ) or die "Installing modules failed\n"; } +sub groups { + my $self = shift; + + my @options; + unless (grep $_ eq 'develop', @{$self->without}) { + push @options, '--with-develop'; + } + + return @options; +} + sub update { my($self, $path, @modules) = @_; diff --git a/lib/Carton/CLI.pm b/lib/Carton/CLI.pm index bd129d5..6d53251 100644 --- a/lib/Carton/CLI.pm +++ b/lib/Carton/CLI.pm @@ -173,10 +173,12 @@ sub cmd_install { my($self, @args) = @_; my $path = $self->install_path; + my @without; $self->parse_options( \@args, "p|path=s" => \$path, + "without=s" => sub { @without = split /,/, $_[1] }, "deployment!" => \my $deployment, "cached!" => \my $cached, ); @@ -191,7 +193,8 @@ sub cmd_install { my $builder = Carton::Builder->new( cascade => 1, - mirror => $self->mirror, + mirror => $self->mirror, + without => \@without, ); if ($deployment) { -- 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