This is an automated email from the git hooks/post-receive script. kanashiro-guest pushed a commit to branch master in repository carton.
commit c39d4ae065e775c7c8e9dca29f0fb4cc79eb11fe Author: Tatsuhiko Miyagawa <miyag...@bulknews.net> Date: Sun Jun 26 01:06:48 2011 -0700 Use --skip-satisfied for conservative upgrades --- lib/Carton.pm | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/lib/Carton.pm b/lib/Carton.pm index 4c58a41..1d9a49e 100644 --- a/lib/Carton.pm +++ b/lib/Carton.pm @@ -23,19 +23,16 @@ sub install_from_build_file { my($self, $file) = @_; my @modules = $self->show_deps(); - $self->run_cpanm(@modules) + $self->run_cpanm("--skip-satisfied", @modules) or die "Installing modules failed\n"; } sub show_deps { my $self = shift; - my @output = $self->run_cpanm_output("--showdeps", "."); - my @deps; - for my $line (@output) { + my @deps = $self->run_cpanm_output("--showdeps", "."); + for my $line (@deps) { chomp $line; - my($mod, $ver) = split / /, $line, 2; - push @deps, $mod; } return @deps; @@ -43,7 +40,7 @@ sub show_deps { sub install_modules { my($self, $modules) = @_; - $self->run_cpanm(@$modules) + $self->run_cpanm("--skip-satisfied", @$modules) or die "Installing modules failed\n"; } @@ -57,6 +54,7 @@ sub install_from_lock { my @root = map $_->key, $tree->children; $self->run_cpanm( + "--skip-satisfied", "--mirror", "http://backpan.perl.org/", "--mirror", "http://cpan.cpantesters.org/", "--index", $mirror_file, @root, -- 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