diff options
| author | damien <damien@mandriva.com> | 2001-03-06 00:43:50 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-03-06 00:43:50 +0000 |
| commit | e139e148db85283d4d6ae22f2d1400238a9dd174 (patch) | |
| tree | 958e5847ba2f1b940299174c3bb696c48b77f67f /perl-install/install2.pm | |
| parent | 46e89f1a659a034dc1057a087ae8e6afe454f01d (diff) | |
| download | drakx-backup-do-not-use-e139e148db85283d4d6ae22f2d1400238a9dd174.tar drakx-backup-do-not-use-e139e148db85283d4d6ae22f2d1400238a9dd174.tar.gz drakx-backup-do-not-use-e139e148db85283d4d6ae22f2d1400238a9dd174.tar.bz2 drakx-backup-do-not-use-e139e148db85283d4d6ae22f2d1400238a9dd174.tar.xz drakx-backup-do-not-use-e139e148db85283d4d6ae22f2d1400238a9dd174.zip | |
corrected intf setting
Diffstat (limited to 'perl-install/install2.pm')
| -rw-r--r-- | perl-install/install2.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 0e219239b..62d68d6b3 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -458,6 +458,7 @@ sub main { $o->{prefix} = $::testing ? "/tmp/test-perl-install" : $::live ? "" : "/mnt"; mkdir $o->{prefix}, 0755; + modules::unload($_) foreach qw(vfat msdos fat); modules::load_deps(($::testing ? ".." : "") . "/modules/modules.dep"); modules::read_stage1_conf($_) foreach "/tmp/conf.modules", "/etc/modules.conf"; modules::read_already_loaded(); @@ -511,7 +512,6 @@ sub main { $o->{compssListLevel} = 50; push @auto, 'selectInstallClass', 'selectMouse', 'doPartitionDisks', 'choosePackages', 'configureTimezone', 'configureX', 'exitInstall'; } -#- push @auto, 'selectLanguage', 'selectInstallClass', 'selectMouse'; foreach (@auto) { eval "undef *" . (!/::/ && "install_steps_interactive::") . $_; @@ -545,7 +545,7 @@ sub main { if (my ($file) = glob_('/tmp/ifcfg-*')) { log::l("found network config file $file"); my $l = network::read_interface_conf($file); - add2hash(network::findIntf($o->{intf} ||= {}, $l->{DEVICE}), $l); + $o->{intf} ||= { $l->{DEVICE} => $l }; } if (my ($file) = glob_('/etc/resolv.conf')) { log::l("found network config file $file"); |