[carton] 30/472: Use --skip-satisfied for conservative upgrades
Lucas Kanashiro
kanashiro-guest at moszumanska.debian.org
Fri Jul 24 00:38:29 UTC 2015
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 <miyagawa at 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
More information about the Pkg-perl-cvs-commits
mailing list