summaryrefslogtreecommitdiffstats
path: root/perl-install/network/ethernet.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-03-09 12:07:14 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-03-09 12:07:14 +0000
commit7b6557172aa0655fdee31b729d55a199158007d1 (patch)
tree7af4c06a7555b8c320cf5209ade978f8c4776992 /perl-install/network/ethernet.pm
parentab16a4bc28eaa33339b6828d2eda6871517840f4 (diff)
downloaddrakx-7b6557172aa0655fdee31b729d55a199158007d1.tar
drakx-7b6557172aa0655fdee31b729d55a199158007d1.tar.gz
drakx-7b6557172aa0655fdee31b729d55a199158007d1.tar.bz2
drakx-7b6557172aa0655fdee31b729d55a199158007d1.tar.xz
drakx-7b6557172aa0655fdee31b729d55a199158007d1.zip
(get_eth_cards) update comments
Diffstat (limited to 'perl-install/network/ethernet.pm')
-rw-r--r--perl-install/network/ethernet.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index 460457df7..3932cb332 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -51,12 +51,13 @@ sub get_eth_cards {
return map {
my $interface = $_;
my $description;
- # 0) get interface's driver through ETHTOOL ioctl or module aliases:
+ # 1) get interface's driver through ETHTOOL ioctl:
my ($a, $detected_through_ethtool);
$a = c::getNetDriver($interface);
if ($a) {
$detected_through_ethtool = 1;
} else {
+ # 2) get interface's driver through module aliases:
$a = $modules_conf->get_alias($interface);
}
@@ -71,16 +72,16 @@ sub get_eth_cards {
);
$a = $fixes{$a} if exists $fixes{$a};
- # 1) try to match a PCMCIA device for device description:
+ # 3) try to match a PCMCIA device for device description:
if (my $b = find { $_->{device} eq $interface } @devs) { # PCMCIA case
$a = $b->{driver};
$description = $b->{description};
} else {
- # 2) try to lookup a device by hardware address for device description:
+ # 4) try to lookup a device by hardware address for device description:
# maybe should have we try sysfs first for robustness?
($description) = (mapIntfToDevice($interface))[0]->{description};
}
- # 3) try to match a device through sysfs for driver & device description:
+ # 5) try to match a device through sysfs for driver & device description:
# (eg: ipw2100 driver for intel centrino do not support ETHTOOL)
if (!$description) {
my $drv = readlink("/sys/class/net/$interface/driver");
@@ -93,7 +94,7 @@ sub get_eth_cards {
$description = $cards[0]{description} if @cards == 1;
}
}
- # 4) try to match a device by driver for device description:
+ # 6) try to match a device by driver for device description:
# (eg: madwifi, ndiswrapper, ...)
if (!$description) {
my @cards = grep { $_->{driver} eq ($a || $saved_driver) } detect_devices::probeall();