summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-08-17 12:05:21 +0000
committerOlivier Blin <oblin@mandriva.org>2004-08-17 12:05:21 +0000
commit332d925103bf25a304bc17c84f68dc90e93f5514 (patch)
treec07a9422905654b1e04cdf9f90cd4abe8f76a2ec /perl-install/network
parent82bfcba1c916d5a35bd75e6bd067701e5b648d2c (diff)
downloaddrakx-backup-do-not-use-332d925103bf25a304bc17c84f68dc90e93f5514.tar
drakx-backup-do-not-use-332d925103bf25a304bc17c84f68dc90e93f5514.tar.gz
drakx-backup-do-not-use-332d925103bf25a304bc17c84f68dc90e93f5514.tar.bz2
drakx-backup-do-not-use-332d925103bf25a304bc17c84f68dc90e93f5514.tar.xz
drakx-backup-do-not-use-332d925103bf25a304bc17c84f68dc90e93f5514.zip
(easy_dhcp) sort devices and keep only eth[0-9]+ devices
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/network.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index b4d06d01e..ea16b36dc 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -365,13 +365,13 @@ sub easy_dhcp {
require modules;
require network::ethernet;
modules::load_category($modules_conf, 'network/main|gigabit|pcmcia|usb');
- my @all_cards = network::ethernet::get_eth_cards($modules_conf);
+ my @all_dev = sort map { $_->[0] } network::ethernet::get_eth_cards($modules_conf);
#- only for a single ethernet network card
- my @ether_cards = grep { `LC_ALL= LANG= $::prefix/sbin/ip -o link show $_->[0] 2>/dev/null` =~ m|\slink/ether\s| } @all_cards;
- @ether_cards == 1 or return;
+ my @ether_dev = grep { /^eth[0-9]+$/ && `LC_ALL= LANG= $::prefix/sbin/ip -o link show $_ 2>/dev/null` =~ m|\slink/ether\s| } @all_dev;
+ @ether_dev == 1 or return;
- my $dhcp_intf = $ether_cards[0][0];
+ my $dhcp_intf = $ether_dev[0];
log::explanations("easy_dhcp: found $dhcp_intf");
network::ethernet::conf_network_card_backend($netc, $intf, 'dhcp', $dhcp_intf);