diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-05 18:02:41 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-05 18:02:41 +0000 |
| commit | feaf2a529e993fee5bd71560d883ef354537ed6a (patch) | |
| tree | b235b4f4b4b5b974df6a0a6973d9fc5fdc65f66d /perl-install | |
| parent | db6d38f52ab7043babff21a8772c5cb3f481dd37 (diff) | |
| download | drakx-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.pm | 4 | ||||
| -rw-r--r-- | 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($) { |