From eb368707588dd1720212524734e039fb0a509dd5 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 4 Apr 2001 13:44:55 +0000 Subject: added selectPackagesToUpgrade the first time choosePackages is called. --- perl-install/install2.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index aa2f2b973..9be58979a 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -236,6 +236,7 @@ sub choosePackages { #- always setPackages as it may have to copy hdlist files and depslist file. $o->setPackages; + $o->selectPackagesToUpgrade if $o->{isUpgrade} && $_[1] == 1; $o->choosePackages($o->{packages}, $o->{compssUsers}, $_[1] == 1); log::l("compssUsersChoice's: ", join(" ", grep { $o->{compssUsersChoice}{$_} } keys %{$o->{compssUsersChoice}})); -- cgit v1.2.1