summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-09-10 09:59:50 +0000
committerFrancois Pons <fpons@mandriva.com>2002-09-10 09:59:50 +0000
commit58bc7312b62acc3253708c68ed60951e19522a5e (patch)
tree42bd2ff6e8a6b7eebce0cf0341f17b07f1dadbdc /perl-install
parent91562f77629d09b715e19e43bf7ea9e0df39d19a (diff)
downloaddrakx-backup-do-not-use-58bc7312b62acc3253708c68ed60951e19522a5e.tar
drakx-backup-do-not-use-58bc7312b62acc3253708c68ed60951e19522a5e.tar.gz
drakx-backup-do-not-use-58bc7312b62acc3253708c68ed60951e19522a5e.tar.bz2
drakx-backup-do-not-use-58bc7312b62acc3253708c68ed60951e19522a5e.tar.xz
drakx-backup-do-not-use-58bc7312b62acc3253708c68ed60951e19522a5e.zip
avoid removing all packages during upgrade (safe guard).
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm9
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index f2021a4ed..88086351d 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -487,7 +487,7 @@ sub choosePackages {
#- this is done at the very beginning to take into account
#- selection of CD by user if using a cdrom.
- $o->chooseCD($packages) if $o->{method} eq 'cdrom' && !$::oem;
+ $o->chooseCD($packages);#if $o->{method} eq 'cdrom' && !$::oem;
my $availableC = install_steps::choosePackages(@_);
my $individual = $::expert;
@@ -632,7 +632,8 @@ sub chooseGroups {
log::l("compssUsersChoice: " . (!$val{$_} && "not ") . "selected [$_] as [$o->{compssUsers}{$_}{label}]") foreach keys %val;
- $unselect_all and install_any::unselectMostPackages($o);
+ #- do not try to deselect package (by default no groups are selected).
+ $o->{isUpgrade} or $unselect_all and install_any::unselectMostPackages($o);
#- if no group have been chosen, ask for using base system only, or no X, or normal.
unless ($o->{isUpgrade} || grep { $val{$_} } keys %val) {
my $docs = !$o->{excludedocs};
@@ -702,7 +703,7 @@ sub chooseCD {
my @mediumsDescr;
my %mediumsDescr;
- if (!common::usingRamdisk()) {
+ if (0 && !common::usingRamdisk()) {
#- mono-cd in case of no ramdisk
foreach (@mediums) {
pkgs::mediumDescr($packages, $install_any::boot_medium) eq pkgs::mediumDescr($packages, $_) and next;
@@ -726,7 +727,7 @@ sub chooseCD {
#- if no other medium available or a poor beginner, we are choosing for him!
#- note first CD is always selected and should not be unselected!
- return if @mediumsDescr == () || !$::expert;
+ #return if @mediumsDescr == () || !$::expert;
$o->set_help('chooseCD');
$o->ask_many_from_list('',