diff options
author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-19 17:31:42 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-19 17:31:42 +0000 |
commit | 25f65beed0677fa247c513705dbf538225f979c4 (patch) | |
tree | e0ec937937cba2d6279e97b3b7036fe0856d5bb2 /perl-install/modules.pm | |
parent | a0b5f74447cc699c43c354cb6397ed554605729b (diff) | |
download | drakx-25f65beed0677fa247c513705dbf538225f979c4.tar drakx-25f65beed0677fa247c513705dbf538225f979c4.tar.gz drakx-25f65beed0677fa247c513705dbf538225f979c4.tar.bz2 drakx-25f65beed0677fa247c513705dbf538225f979c4.tar.xz drakx-25f65beed0677fa247c513705dbf538225f979c4.zip |
no_comment
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r-- | perl-install/modules.pm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm index 076feab51..682b8959f 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -187,24 +187,24 @@ sub load($;$@) { log::l("i try to install $name module (@options)"); } else { $conf{$name}{loaded} and return; - + $type ||= $drivers{$name}{type}; - + load($_, 'prereq') foreach @{$deps{$name}}; load_raw($name, @options); } - $conf{'scsi_hostadapter' . ($scsi++ || '')}{alias} = $name + $conf{'scsi_hostadapter' . ($scsi++ || '')}{alias} = $name if $type eq 'scsi'; $conf{$name}{options} = join " ", @options if @options; } -sub unload($) { +sub unload($) { if ($::testing) { log::l("rmmod $_[0]"); } else { - run_program::run("rmmod", $_[0]); + run_program::run("rmmod", $_[0]); } } @@ -284,11 +284,11 @@ sub write_conf { } } -sub get_stage1_conf { +sub get_stage1_conf { %conf = read_conf($_[1], \$scsi); add2hash(\%conf, $_[0]); $conf{parport_lowlevel}{alias} ||= "parport_pc"; - $conf{pcmcia_core}{"pre-install"} ||= "/etc/rc.d/init.d/pcmcia start"; + $conf{pcmcia_core}{"pre-install"} ||= "/etc/rc.d/init.d/pcmcia start"; $conf{plip}{"pre-install"} ||= "modprobe parport_pc ; echo 7 > /proc/parport/0/irq"; \%conf; } @@ -298,13 +298,13 @@ sub load_thiskind($;&) { my @devs = pci_probing::main::probe($type); log::l("pci probe found " . scalar @devs . " $type devices"); - + my %devs; foreach (@devs) { my ($text, $mod) = @$_; $devs{$mod}++ and log::l("multiple $mod devices found"), next; $drivers{$mod} or log::l("module $mod not in install table"), next; log::l("found driver for $mod"); - &$f($text, $mod) if $f; + &$f($text, $mod) if $f; load($mod, $type); } @devs; |