diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-05-11 04:02:30 -0400 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-07-05 22:39:22 +0200 |
| commit | b6b524347edef36930ccdce12c0eb8ba57cb0c00 (patch) | |
| tree | 3057f92e00236ada3e9f6954ad0e06d95141d32d /perl-install | |
| parent | 325ab8add83e19c9dacd1b10ef6791441660f63a (diff) | |
| download | drakx-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.pm | 5 |
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; |