From 0241717ad27f28a6489807533f138d5aaa4aa5f8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 3 Apr 2001 12:18:58 +0000
Subject: (setPackages): don't preselect profiles in upgrade

---
 perl-install/install_any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index fa4ffbc8f..bd412af41 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -323,7 +323,7 @@ sub setPackages {
 	if ($::auto_install && !$o->{compssUsersChoice}) {
 	    $o->{compssUsersChoice}{$_} = 1 foreach map { @{$o->{compssUsers}{$_}{flags}} } @{$o->{compssUsersSorted}};
 	}
-	if (!$::auto_install) {
+	if (!$::auto_install && !$o->{isUpgrade}) {
 	    #- by default, choose:
 	    $o->{compssUsersChoice}{$_} = 1 foreach 'GNOME', 'KDE', 'CONFIG';
 	    $o->{compssUsersChoice}{$_} = 1 
-- 
cgit v1.2.1