From feaf2a529e993fee5bd71560d883ef354537ed6a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 5 Sep 1999 18:02:41 +0000
Subject: no_comment

---
 perl-install/install2.pm |  4 +++-
 perl-install/modules.pm  | 10 +++++-----
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index e7e36a765..3fb964b51 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -249,7 +249,9 @@ my %suggestedPartitions = (
     { mntpoint => "/var",  size => 600 << 11, type => 0x83 }, 
     { mntpoint => "/home", size => 500 << 11, type => 0x83 }, 
   ],
-  expert => [],
+  expert => [
+    { mntpoint => "/",     size => 200 << 11, type => 0x83 }, 
+  ],
 );
 
 #-#######################################################################################
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 2117c580c..5222e72dc 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -243,11 +243,6 @@ sub text2driver($) {
 sub load($;$@) {
     my ($name, $type, @options) = @_;
 
-    $conf{'scsi_hostadapter' . ($scsi++ || '')}{alias} = $name 
-      if $type eq 'scsi';
-
-    $conf{$name}{options} = join " ", @options if @options;
-
     if ($::testing) {
 	log::l("i try to install $name module");
     } else {
@@ -258,6 +253,11 @@ sub load($;$@) {
 	load($_, 'prereq') foreach @{$deps{$name}};
 	load_raw($name, @options);
     }
+
+    $conf{'scsi_hostadapter' . ($scsi++ || '')}{alias} = $name 
+      if $type eq 'scsi';
+
+    $conf{$name}{options} = join " ", @options if @options;
 }
 
 sub unload($) { 
-- 
cgit v1.2.1