From 4ab3f61ce57c38aecaf28b3c197bdccbe8dbe88b Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Mon, 19 Oct 2009 13:32:03 +0000
Subject: allow to set preferred packages list in auto_install (comma-separated
 list in $o->{preferred_packages})

---
 perl-install/install/NEWS    | 2 ++
 perl-install/install/pkgs.pm | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 61713f637..d1c2e96b1 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,5 +1,7 @@
 - fix raid initialisation during install (#54706)
 - fix raid detection during install (#54706)
+- allow to set preferred packages list in auto_install
+  (comma-separated list in $o->{preferred_packages})
 
 Version 12.67 - 18 October 2009
 
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 98b976505..e3d453791 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -164,7 +164,7 @@ sub packageCallbackChoices {
 sub _packageCallbackChoices_ {
     my ($urpm, $choices, $virtual_pkg_name) = @_;
 
-    my ($prefer, $_other) = urpm::select::get_preferred($urpm, $choices, '');
+    my ($prefer, $_other) = urpm::select::get_preferred($urpm, $choices, $::o->{preferred_packages});
     if (@$prefer) {
 	@$prefer;
     } elsif ($virtual_pkg_name eq 'kernel') {
-- 
cgit v1.2.1