From fd82c0312a315599fb0d766fa5c6b7be4b211ba3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 10 Sep 1999 09:15:24 +0000
Subject: no_comment

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

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

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index f3850252b..c4a6c17ae 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -385,7 +385,7 @@ sub selectInstallClass {
     $::beginner = $o->{installClass} eq "beginner";
     $o->{partitions} = $suggestedPartitions{$o->{installClass}};
 
-    install_any::setPackages($o) if $o->{steps}{choosePackages}{entered} > 1;
+    install_any::setPackages($o, \@install_classes) if $o->{steps}{choosePackages}{entered} > 1;
 }
 
 #------------------------------------------------------------------------------
@@ -446,7 +446,7 @@ sub formatPartitions {
 #------------------------------------------------------------------------------
 #-PADTODO
 sub choosePackages {
-    install_any::setPackages($o);
+    install_any::setPackages($o, \@install_classes);
     $o->choosePackages($o->{packages}, $o->{compss}); 
     $o->{packages}{$_}{selected} = 1 foreach @{$o->{base}};
 }
-- 
cgit v1.2.1