summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/pkgs.pm10
1 files changed, 8 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index e3858e668..d80d3c42f 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -823,7 +823,10 @@ sub selectPackagesAlreadyInstalled {
}
sub selectPackagesToUpgrade {
- my ($packages, $prefix) = @_;
+ my ($packages, $prefix, $medium) = @_;
+
+ #- check before that if medium is given, it should be valid.
+ $medium && ! defined $medium->{start} || ! defined $medium->{end} and return;
log::l("selecting packages to upgrade");
@@ -831,7 +834,10 @@ sub selectPackagesToUpgrade {
$state->{selected} = {};
my %selection;
- $packages->request_packages_to_upgrade($packages->{rpmdb}, $state, \%selection, requested => undef);
+ $packages->request_packages_to_upgrade($packages->{rpmdb}, $state, \%selection,
+ requested => undef,
+ $medium ? (start => $medium->{start}, end => $medium->{end}) : (),
+ );
log::l("resolving dependencies...");
$packages->resolve_requested($packages->{rpmdb}, $state, \%selection,
callback_choices => \&packageCallbackChoices);