summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm13
1 files changed, 2 insertions, 11 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index e9d13ea63..4bb3b7f18 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -239,15 +239,6 @@ sub getATARAID {
}
sub getNet() {
-# my @a;
-# foreach (@netdevices) {
-# $::isStandalone && /plip/ and next;
-# print (" hhhhh $_ \n");
-# /ippp/ and run_program::rooted("", "/sbin/isdnctrl addif $_");
-# c::hasNetDevice($_) and push @a, $_;
-# }
-# /ippp/ and run_program::rooted("", "/sbin/isdnctrl delif $_") foreach @netdevices;
-# @a;
grep { !(($::isStandalone || $::live) && /plip/) && c::hasNetDevice($_) } @netdevices;
}
@@ -344,7 +335,7 @@ sub stringlist {
sub check {
my ($l) = @_;
my $ok = $l->{driver} !~ /(unknown|ignore)/;
- $ok or log::l("skipping $l->{description}, no module available (if you know one, please mail install\@mandrakesoft.com)");
+ $ok or log::l("skipping $l->{description}, no module available (if you know one, please mail cooker\@mandrakesoft.com)");
$ok
}
@@ -579,7 +570,7 @@ sub raidAutoStart {
my %personalities = ( '1' => 'linear', '2' => 'raid0', '3' => 'raid1', '4' => 'raid5' );
raidAutoStartIoctl() or log::l("warning, RAID_AUTORUN not supported by kernel"), return;
if (my @needed_perso = map { if_(/^kmod: failed.*md-personality-(.)/, $personalities{$1}) } syslog()) {
- log::l("RAID: autostart needs personality from $_"), eval { modules::load($_) } foreach @needed_perso;
+ log::l("RAID: autostart needs personality from $_"), eval { modules::load(@needed_perso) };
return raidAutoStartIoctl();
} else {
1;