1 files changed, 12 insertions, 4 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 834c58a73..4bb4e9bc4 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -124,15 +124,23 @@ sub setPackages($$) {
 	push @{$o->{base}}, "kernel-pcmcia-cs" if $o->{pcmcia};
     }
 
-    do {
-	my $p = $o->{packages}{$_} or log::l("missing base package $_"), next;
-	pkgs::select($o->{packages}, $p, 1);
-    } foreach @{$o->{base}};
+    unless ($o->{isUpgrade}) {
+	do {
+	    my $p = $o->{packages}{$_} or log::l("missing base package $_"), next;
+	    pkgs::select($o->{packages}, $p, 1);
+	} foreach @{$o->{base}};
+    }
 
     pkgs::setShowFromCompss($o->{compss}, $o->{installClass}, $o->{lang});
     ($o->{packages_}{ind}, $o->{packages_}{select_level}) = pkgs::setSelectedFromCompssList($o->{compssListLevels}, $o->{packages}, getAvailableSpace($o) * 0.7, $o->{installClass}, $o->{lang});
 }
 
+sub findPackagesToUpgrade($) {
+    my ($o) = @_;
+
+    pkgs::findPackagesToUpgrade($o->{packages}, $o->{prefix});
+}
+
 sub addToBeDone(&$) {
     my ($f, $step) = @_;