summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-07-25 17:30:32 +0000
committerFrancois Pons <fpons@mandriva.com>2002-07-25 17:30:32 +0000
commitde4fd80d4311332df639c63cc7fd1b4f85d0d7fe (patch)
treef22941e5eed730036031697f42a7d98a521afa45 /perl-install
parent4e73cd4e6bbf81776c8b10e8f035d84bdd9632bc (diff)
downloaddrakx-de4fd80d4311332df639c63cc7fd1b4f85d0d7fe.tar
drakx-de4fd80d4311332df639c63cc7fd1b4f85d0d7fe.tar.gz
drakx-de4fd80d4311332df639c63cc7fd1b4f85d0d7fe.tar.bz2
drakx-de4fd80d4311332df639c63cc7fd1b4f85d0d7fe.tar.xz
drakx-de4fd80d4311332df639c63cc7fd1b4f85d0d7fe.zip
small code changes for upgrade.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index e046ab6eb..10c933e3c 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -786,8 +786,9 @@ sub selectPackagesToUpgrade {
my $state = $packages->{state} ||= {};
$state->{selected} = {};
- $packages->resolve_requested($packages->{rpmdb}, $state,
- $packages->request_packages_to_upgrade($packages->{rpmdb}, $state, {}, requested => undef) || {},
+ my %selection;
+ $packages->request_packages_to_upgrade($packages->{rpmdb}, $state, \%selection, requested => undef);
+ $packages->resolve_requested($packages->{rpmdb}, $state, \%selection,
callback_choices => \&packageCallbackChoices);
}