summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-05 18:02:41 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-05 18:02:41 +0000
commitfeaf2a529e993fee5bd71560d883ef354537ed6a (patch)
treeb235b4f4b4b5b974df6a0a6973d9fc5fdc65f66d /perl-install
parentdb6d38f52ab7043babff21a8772c5cb3f481dd37 (diff)
downloaddrakx-feaf2a529e993fee5bd71560d883ef354537ed6a.tar
drakx-feaf2a529e993fee5bd71560d883ef354537ed6a.tar.gz
drakx-feaf2a529e993fee5bd71560d883ef354537ed6a.tar.bz2
drakx-feaf2a529e993fee5bd71560d883ef354537ed6a.tar.xz
drakx-feaf2a529e993fee5bd71560d883ef354537ed6a.zip
no_comment
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($) {