From 7eba5b3a2b6c8dc1f6b2cb9d16abf648d5cbddc5 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 7 Jul 2000 14:58:27 +0000 Subject: *** empty log message *** --- perl-install/install2.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'perl-install/install2.pm') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 3819c649e..52fa053ca 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -361,8 +361,13 @@ sub formatPartitions { #------------------------------------------------------------------------------ sub choosePackages { require pkgs; + + #- always setPackages as it may have to copy hdlist files and depslist file. + $o->setPackages; + + #- for the first time, select package to upgrade. + #- TOCHECK this may not be the best place for that as package are selected at some other point. if ($_[1] == 1) { - $o->setPackages; $o->selectPackagesToUpgrade($o) if $o->{isUpgrade}; $o->{compssUsersChoice}{$_} = 1 foreach @{$o->{compssUsersSorted}}, 'Miscellaneous'; -- cgit v1.2.1