diff options
author | Francois Pons <fpons@mandriva.com> | 2000-11-07 14:06:35 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2000-11-07 14:06:35 +0000 |
commit | eabf4901d9ac140747ca8e667bb9395f79ad92a2 (patch) | |
tree | c616e1b9e1069c57541c949c543d6284aa38c6e1 /perl-install | |
parent | f3fee4e43d9635644491e91760336d5e5b1f7022 (diff) | |
download | drakx-backup-do-not-use-eabf4901d9ac140747ca8e667bb9395f79ad92a2.tar drakx-backup-do-not-use-eabf4901d9ac140747ca8e667bb9395f79ad92a2.tar.gz drakx-backup-do-not-use-eabf4901d9ac140747ca8e667bb9395f79ad92a2.tar.bz2 drakx-backup-do-not-use-eabf4901d9ac140747ca8e667bb9395f79ad92a2.tar.xz drakx-backup-do-not-use-eabf4901d9ac140747ca8e667bb9395f79ad92a2.zip |
use of install_any::boot_medium to avoid listing medium used for boot
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/install_steps_interactive.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 7f5f9b93b..e74789c8c 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -542,7 +542,7 @@ sub chooseGroups { sub chooseCD { my ($o, $packages) = @_; - my @mediums = grep { $_ > 1 } pkgs::allMediums($packages); + my @mediums = grep { $_ != $install_any::boot_medium } pkgs::allMediums($packages); my @mediumsDescr = (); my %mediumsDescr = (); |