From de4fd80d4311332df639c63cc7fd1b4f85d0d7fe Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 25 Jul 2002 17:30:32 +0000
Subject: small code changes for upgrade.

---
 perl-install/pkgs.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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

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);
 }
 
-- 
cgit v1.2.1