diff options
| -rw-r--r-- | perl-install/pkgs.pm | 10 |
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); |