From 39825fad12d081797d4b06ae27e59709cba61afd Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 2 Sep 2005 09:52:51 +0000
Subject: new function select_by_package_names()

---
 perl-install/install_steps_interactive.pm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

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

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index cdd1cfebd..2c350ef16 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -504,10 +504,7 @@ The format is the same as auto_install generated files."),
 		$o->ask_okcancel('', N("Bad file")) or return;
 	    } else {
 		install_any::unselectMostPackages($o);
-		foreach (@{$O->{default_packages} || []}) {
-		    my $pkg = pkgs::packageByName($packages, $_);
-		    pkgs::selectPackage($packages, $pkg) if $pkg;
-		}
+		pkgs::select_by_package_names($packages, $O->{default_packages} || []);
 		return 1;
 	    }
 	}
-- 
cgit v1.2.1