summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-05-11 04:02:30 -0400
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-07-05 22:39:22 +0200
commitb6b524347edef36930ccdce12c0eb8ba57cb0c00 (patch)
tree3057f92e00236ada3e9f6954ad0e06d95141d32d /perl-install
parent325ab8add83e19c9dacd1b10ef6791441660f63a (diff)
downloaddrakx-b6b524347edef36930ccdce12c0eb8ba57cb0c00.tar
drakx-b6b524347edef36930ccdce12c0eb8ba57cb0c00.tar.gz
drakx-b6b524347edef36930ccdce12c0eb8ba57cb0c00.tar.bz2
drakx-b6b524347edef36930ccdce12c0eb8ba57cb0c00.tar.xz
drakx-b6b524347edef36930ccdce12c0eb8ba57cb0c00.zip
(enable_choosen_media) split it out
... of media_screen() needed for next commit
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/any.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 01896b570..b671a5b18 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -505,7 +505,11 @@ sub media_screen {
};
} @{$urpm->{media}},
]);
+}
+sub enable_choosen_media {
+ my ($o) = @_;
+ my $urpm = $o->{packages};
# is there some media to enable?
my $todo;
@@ -577,6 +581,7 @@ sub setPackages {
install::pkgs::start_pushing_error();
media_screen($o) if !$::auto_install && !$::o->{match_all_hardware};
+ enable_choosen_media($o);
my @choosen_media = map { $_->{name} } grep { !$_->{ignore} } @{$urpm->{media}};
log::l("choosen media: ", join(', ', @choosen_media));
die "no choosen media" if !@choosen_media;