From 23f9db1e651a6e2777decbfa8638d32178846bb2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 20 Mar 2001 17:02:57 +0000
Subject: - create install_any::unselectMostPackages - use it instead of
 pkgs::unselectAllPackages (otherwise default_packages ends up non-selected)

---
 perl-install/install_any.pm | 6 ++++++
 1 file changed, 6 insertions(+)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 61d4176e1..3868f3bba 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -354,6 +354,12 @@ sub setPackages {
     }
 }
 
+sub unselectMostPackages {
+    my ($o) = @_;
+    pkgs::unselectAllPackages($o->{packages});
+    pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_) || next) foreach @{$o->{default_packages}};
+}
+
 sub addToBeDone(&$) {
     my ($f, $step) = @_;
 
-- 
cgit v1.2.1