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/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

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