diff options
| author | Francois Pons <fpons@mandriva.com> | 1999-11-17 21:49:12 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 1999-11-17 21:49:12 +0000 |
| commit | 38dea3d2412ecdbe2988f58b7ce7a905aff5fb10 (patch) | |
| tree | 6a4930b84e120014513038548a797eab8ef1035f /perl-install/install2.pm | |
| parent | 0eba4a2a3ff3e37bb8a08477f556fe3f97351d7b (diff) | |
| download | drakx-38dea3d2412ecdbe2988f58b7ce7a905aff5fb10.tar drakx-38dea3d2412ecdbe2988f58b7ce7a905aff5fb10.tar.gz drakx-38dea3d2412ecdbe2988f58b7ce7a905aff5fb10.tar.bz2 drakx-38dea3d2412ecdbe2988f58b7ce7a905aff5fb10.tar.xz drakx-38dea3d2412ecdbe2988f58b7ce7a905aff5fb10.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/install2.pm')
| -rw-r--r-- | perl-install/install2.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index ec7d0a666..1f2d8f1b1 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -339,8 +339,10 @@ sub formatPartitions { sub choosePackages { $o->setPackages if $_[1] == 1; $o->selectPackagesToUpgrade($o) if $o->{isUpgrade} && $_[1] == 1; - $o->choosePackages($o->{packages}, $o->{compss}, $o->{compssUsers}, $_[1] == 1); - do { $o->{packages}{$_}{selected} = 1 foreach @{$o->{base}} } unless $o->{isUpgrade}; #- already done. + unless ($o->{isUpgrade}) { + $o->choosePackages($o->{packages}, $o->{compss}, $o->{compssUsers}, $_[1] == 1); + $o->{packages}{$_}{selected} = 1 foreach @{$o->{base}}; #- already done by selectPackagesToUpgrade. + } } #------------------------------------------------------------------------------ |