summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm4
-rw-r--r--perl-install/modules.pm10
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($) {