From a4127cab99851dadd4fc60f92f6cb5ee264ff432 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 2 Sep 2002 13:54:50 +0000
Subject: allow selecting packages to upgrade.

---
 perl-install/crypto.pm | 4 ++++
 1 file changed, 4 insertions(+)

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

diff --git a/perl-install/crypto.pm b/perl-install/crypto.pm
index c9ef09f04..56fd10a9e 100644
--- a/perl-install/crypto.pm
+++ b/perl-install/crypto.pm
@@ -146,6 +146,10 @@ sub getPackages {
     $update_medium->{selected} = 1;
     $update_medium->{update} = 1;
 
+    #- search for packages to update.
+    $packages->{rpmdb} ||= pkgs::rpmDbOpen($o->{prefix});
+    pkgs::selectPackagesToUpgrade($packages, $prefix, $update_medium);
+
     return $update_medium;
 }
 
-- 
cgit v1.2.1